[fpc-pascal] Re: How to make class constructor body calls descendant's overriden method/property?

leledumbo leledumbo_cool at yahoo.co.id
Sun Nov 18 15:05:17 CET 2012


> Both RegisterClass procedures I pointed out are methods of the framework,
eg:

Yes, I know. I implement it this way now:

procedure RegisterClass(AClass: TghModelClass);
procedure RegisterClass(AClass: TghModelClass; const AName: String);

...

procedure RegisterClass(AClass: TghModelClass);
var
  ClassName: String;
begin
  ClassName := AClass.ClassName;
  Delete(ClassName,1,1);
  RegisterClass(AClass,ClassName);
end;

procedure RegisterClass(AClass: TghModelClass; const AName: String);
begin
  ClassMap[AClass] := AName;
end;

...



--
View this message in context: http://free-pascal-general.1045716.n5.nabble.com/How-to-make-class-constructor-body-calls-descendant-s-overriden-method-property-tp5711994p5712009.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.



More information about the fpc-pascal mailing list