Cześć,
mam taki kod:
type
TObject1 = class
... // jakieś pola / metody
end;
TObject2 = class
FObject1: TObject1;
end;
TObject3 = class
FObject1: TObject1;
end;
var // zmienne globalne
Object1: TObject1;
Object2: TObject2;
Object3: TObject3;
procedure Init;
begin
Object1 := TObject1.Create;
Object2 := TObject2.Create;
Object2.FObject1 := Object1;
Object3 := TObject3.Create;
Object3.FObject1 := Object1;
end;
Obiekty 2 i 3 w swoich metodach korzystają z obiektu 1, ale mogą go też zniszczyć. Czy jest jakiś sposób na sprawdzenie czy obiekt do którego mam referencje nadal istnieje?