Delphi: `procedure RaiseAbstractError(const aClass: TClass; const aMethodName: string

[DP News-Robot]

Needs the System.SysConst*unit: procedure RaiseAbstractError(const aClass: TClass; const aMethodName: string); begin * // more explanatory than AbstractErrorProc(); * raise EAbstractError.CreateFmt('%s: method %s.%s', [SAbstractError, aClass.ClassName, aMethodName]); end; It uses a TClass typed parameter so you can call it from non-static class methods (using Self*as parameter value) in addition to instance methods (using ClassType*as parameter value). –jeroen

Weiterlesen...