Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Test: TTest;
begin
Test:=TTest.Create; // <- Hier werden die Defaults gesetzt
Memo1.Lines.Clear;
Memo1.Lines.Add('VarString:='+Test.fString);
Memo1.Lines.Add('VarInteger:='+inttostr(Test.fInteger));
Memo1.Lines.Add('VarBoolean:='+BoolToStr(Test.fBoolean, True));
end;
Wo ist der Ressourcen-Schutzblock und wo wird das Objekt wieder freigegeben?
