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

1
jpluimers jpluimers 2 months ago in Delphi, Development, Software Development 0

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