Einzelnen Beitrag anzeigen

LoL
(Gast)

n/a Beiträge
 
#12

Re: Rückgabewert von Function freigeben

  Alt 25. Feb 2005, 11:53
Delphi-Quellcode:
var comp : TComponent;

procedure TForm1.Button1Click(Sender: TObject);
var p : Pointer;
begin
  p.free;
  p := @comp;
  p := TComponent.Create(form1);
  if comp = nil then showmessage('NIL');
end;
Die Komponente comp ist danach aber immer noch NIL?!?
  Mit Zitat antworten Zitat