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