Rückgabewert von Function freigeben

[himitsu]

Das ist das Problem, wenn man mit den Pointern Falsch umgeht

Ich hoffe so geht es: (hab ja selber noch nicht alle Tricks drauf)

Code:

procedure TForm1.Button1Click(Sender: TObject); 
var p : Pointer; 
begin 
  p.free; 
  p := @comp; 
  p := [color=#ff0000]@[/color]TComponent.Create(form1); 
  if comp = nil then showmessage('NIL'); 
end;

[add]
neee, ich glaub so geht es auch nicht, aber sowas in der Richtung muß es wohl sein

aber p.Free ist eh falsch.

So sollte es an dieser Stelle wohl richtiger sein:

Delphi-Quellcode:

var p : Pointer; 

p^.Free; 
TCompunent(p^).Free;