Referenzen auf Objekte, die free werden

[cruiser]

Erklär mal, was genau du machen willst. Evtl. findet sich dann ein Weg, der an einer Listenhaltung vorbei führt.

Hab bisschen Rumgetüftelt. Du kannst zwar nicht auf nil prüfen, aber du kannst den ClassType deiner Referenz gegen den soll-Classtype prüfen:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses Windows, SysUtils, Classes;

{ TCl1 }

type TCl1 = class(TObject)
private
  fs: AnsiString;
public
  constructor Create(const s:AnsiString); reintroduce;
end;

constructor TCl1.Create(const s: AnsiString);
begin
  fs := s;
end;

{ TCl2 }

type TCl2 = class(TObject)
private
  fo: TCl1;
public
  constructor Create(o:TCl1); reintroduce;
  function Check: Boolean;
end;

function TCl2.Check: Boolean;
begin
  Result := (fo.ClassType = TCl1);
end;

constructor TCl2.Create(o: TCl1);
begin
  fo := o;
end;

var
  o1: TCl1;
  o2: TCl2;
begin
  try
    o1 := TCl1.Create('Test');
    o2 := TCl2.Create(o1);

    FreeAndNil(o1);

    if o2.Check then
      Writeln('Referenziertes Objekt (o1) existiert noch') else
      Writeln('Referenziertes Objekt (o1) wurde frei gegeben');

  finally
    FreeAndNil(o2);
    Sleep(5000);
  end;
end.