Klasseneigenschaften und ihre Getter (abstrakte Klasse)

[alzaimar]

Ich habe es so gelöst:

Delphi-Quellcode:

Type
  TMyClass = class
  Private
     Function GetMyProperty : String;
     Function DoGetMyProperty; String; Virtual; Abstract; // <--- Das hier wird überschrieben
  Public
     [/edit] Class {/edit] Property MyProperty : String Read GetMyProperty;
  End;


Function TMyClass.GetMyProperty : String;
Begin
  Result := DoGetMyProperty;
End;