Delphi: `procedure RaiseAbstractError(const aClass: TClass; const aMethodName: string);`
Posted by jpluimers on 2020/11/17
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






Leave a comment