Objekt freigeben

[Snoop007]

Hi,
ich erszelle währen der laufzeit ein panel mit mehrere images.

wie kann ich nun das objekt wieder "löschen" und neu initialisieren ?

wenn ich

Code:

  if panel1 <> nil then
    Panel1.Destroy;

eingebe, erhalte ich eine execption, das gleiche mit .Free;
wenn ich nil zuweise, befindet es sich aber noch auf dem Formular, was nicht sein sollte.


mh, ich dachte das geht mit destroy

[neolithos]

eigentlich nimmt man .Free

oder noch FreeAndNil(panel1).

Doch sollte man ein VCL-Control nur zerstören wenn man es auch selber erzeugt hat.

[Generalissimo]

Ich hab das so gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
   p:=TPanel.Create(self);
   p.Parent:=Form1;
   p.Left:=100;
   p.Top:=100;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  p.Destroy;
end;

P als globale Variable. Funktioniert bestens.

[edit=Daniel B]Delphi-Tags eingefügt. Mfg, Daniel B[/edit]

[neolithos]

Liest von euch keiner die VCL-Hilfe...

Zitat:

Rufen Sie Destroy nicht direkt auf. Verwenden Sie stattdessen die Methode Free, die vor dem Aufrufen des Destruktors prüft, ob das Objekt noch im Speicher vorhanden ist.

[Generalissimo]

ja, ok x.free ist besser.
Die Theorie ist die selbe

[neolithos]

Der grund warum man das so machen sollte ist folgender...

Delphi-Quellcode:

  if l then
     obj := TSomething.Create
  else
     obj := nil;
  
  FreeAndNil(obj); // erzeugt nix Fehler, wenn obj = nil
  // nun ist obj = nil

FreeAndNil könnte man auch durch

Delphi-Quellcode:

  obj.Free;
  obj := nil;

ersetzen...

[Snoop007]

mit FreeAndNil klarppts, danke