Und wenn man ganz faul ist, dann einfach so
Delphi-Quellcode:
TForm1 = class( TForm )
private
FData : TMyData;
function GetData : TMyData;
procedure ClearData;
protected
property Data : TMyData read GetData;
end;
function TForm1.GetData : TMyData;
begin
if not Assigned( FData ) then
FData := TMyData.Create;
Result := FData;
end;
procedure TForm1.ClearData;
begin
FreeAndNil( FData );
end;
Wenn die Amnwendung in den Hintergrund tritt, dann einfach
ClearData
aufrufen und schwupps sind die Daten weg. Jeder erneute Zugriff auf die Eigenschaft
Data
erstellt eine Instanz oder liefert die vorhandene zurück.
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)