bereits freigegeben?

[moin339]

Moin!

Wie kann man feststellen ob eine klasse bereits über free freigegeben wurde?

Delphi-Quellcode:

var Test: TTest

implementation

procedure bla;
begin
  if bereitsFreigegeben(Test) then showmessage('test wurde freigegeben');
end;

ciao, moin339