Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Dagon,
1. Okt 2003
@ Christian Seehase: Ich mich :oops:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Dagon,
1. Okt 2003
Ist das nicht das selbe wie
procedure Destroy_Component(Compo : TObject);
begin
if Compo <> nil then
begin
FreeAndNil(Compo);
end;
end;
:?:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Dagon,
1. Okt 2003
Das ist genau das was ich gemeint habe.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Dagon,
1. Okt 2003
Es gibt false zurück!
Du hast ja geschrieben if not(assigned(Compo)) = true ....
Das würde also beduten, diese Aussage ist wahr, wenn Assigned False zurückgibt.
Ergo: Compo ist Nil!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Dagon,
1. Okt 2003
Versuchs mal mit FreeAndNil:
procedure Destroy_Component(Compo : TComponent);
begin
if Compo <> nil then
FreeAndNil(Compo);
end;