@sakura
Wieso inherited?
@iaby
Deine
unit ist schon richtig. Das "var bookmark: TBookmark" gehört da aber nicht hin.
Deine
unit die das nutzen soll müsste dann so aussehen:
Delphi-Quellcode:
var
Form1: TForm1;
bm: TBookmark;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
bm:= TBookmark.create;
bm.setversion('blablabla');
ShowMessage(bm.getversion);
if bm.isvalid then beep
end;
Hast bestimmt das Erzeugen einer variablen type TBookmark vergessen.
Hab ich auch immer wieder gern gemacht
