How to call object method for any object in my metaclass?
问题 I have basically this object structure: TJSONStructure = class(TObject); TReqBase = class(TJSONStructure) private token: Int64; public procedure FillWithTemplateData; virtual; end; TReqLogin = class(TReqBase) private username, password: String; module : Integer; public procedure FillWithTemplateData; override; end; procedure TReqBase.FillWithTemplateData; begin token := ...; end; procedure TReqLogin.FillWithTemplateData; begin inherited; username := ...; password := ...; module := ...; end;