Komponeten zerstören

[LoL]

hi

ich erzeuge komponeten zur laufzeit. nun will ich diese zerstören. ich will dafür ne allgemein prozedur verwenden etwa so:

Delphi-Quellcode:

procedure Destroy_Component(Compo : TComponent);
begin
  if Compo <> nil then
    begin
      Compo.Destroy;
      Compo := nil;
      Compo.Free;
    end;
end;

das zerstören klappt auch so weit.
wenn ich aber diese komponenten die zerstört ist, wieder erstellen will frage ich

Delphi-Quellcode:

if not(assigned(Compo )) then <--Compo ist die zertörte komponete
....
erstellen der komponente

diese abfrage ist aber false!, d.h. die komponente existiert noch.

wenn ich aber die komponete ohne diese prozedur zerstöre also manuell(z.b. ein panel):

Delphi-Quellcode:

panel.destroy;
panel := nil;
panel.free;

und dann die abfrage mache ob die komponente noch existiert ist diese true! obwohl ich das selbe gemacht habe?

wer kann mir helfen

[Dagon]

Versuchs mal mit FreeAndNil:

Delphi-Quellcode:

procedure Destroy_Component(Compo : TComponent);
begin
  if Compo <> nil then
    FreeAndNil(Compo);    
end;

[LoL]

will ich nicht kannst du mir sagen woran es liegt

[Dagon]

1. Mit Assignde prüfst du ob der Zeiger (hier Compo) den Wert nil hat.

2. Folgendes steht in der OH:

Zitat:

Assigned gibt false zurück, wenn P den Wert nil hat, andernfalls true.

[LoL]

wenn ich die komponente nach obiger prozedur zertöre und frei gebe dann ist sie nil: also warum gibt dann assign true zurück?

[Chewie]

Ersetz mal

Delphi-Quellcode:

procedure Destroy_Component(Compo : TComponent); 
begin 
  if Compo <> nil then 
    begin 
      Compo.Destroy; 
      Compo := nil; 
      Compo.Free; 
    end; 
end;

durch

Delphi-Quellcode:

procedure DestroyComponent(Compo: TComponent);
begin
  if Compo <> nil then
  begin
    Compo.Free;
    Compo := nil;
  end;
end;

[Dagon]

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!

[LoL]

Die Funktion Assigned prüft, ob ein Zeiger oder eine Prozedurvariable den Wert NIL hat (nicht zugewiesen ist).

if Assigned(Component) then //Instanz erstellt

ich frage ja bevor ich die komponete erstelle ob sie nil ist. falls sie nämlich scho existiert bekomme ich ja ne exception!

[Dagon]

Das ist genau das was ich gemeint habe.

[LoL]

also passt die abfrage aber was ist der unterschied zwischen dem zerstören in der prozedur und der manuellen zerstörung?