- TBasicClass = class(TObject)
- public
- procedure DoSomething; abstract; virtual;
- end;
- TChildClass1 = class(TBasicClass)
- public
- procedure DoSomething; override;
- end;
- TChildClass2 = class(TBasicClass)
- public
- procedure DoSomething; override;
- end;
Vererbung und PolymorphieModerator: DGL-Team
|