如何判断指针所指的对象是否已经Free?
TKKK = class(TObject)
private
FK: Integer;
procedure SetK(const Value: Integer);
public
property K: Integer read FK write SetK;
end;
TForm1 = class(TForm)
Button4: TButton;
procedure Button4Click(Sender: TObject);
private
F1, F2: TKKK;
public
end;
implementation
{$R *.dfm}
procedure TKKK.SetK(const Value: Integer);
begin
FK := Value;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
F1 := TKKK.Create;
F2 := F1;
F1.Free;
F1 := nil;
if 如何判断F2现在已经释放 then
F2.K := 10;
end;