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;