Komponente freigeben und neue unter selbem Namen erstellen

[Chrissi91]

Hallo,

mein Problem ist kein neues, aber ich kriege es gerade mal wieder nicht gebacken.

Ich erstelle zur Laufzeit Komponenten, lösche sie und erstelle sie erneut unter gleichem Namen. Das Problem ist, dass das Programm dann zur Laufzeit abstürzt und sagt, dass der Name schon belegt ist.

Freigeben tue ich die Komponenten mit eine der 2 Möglichkeiten, es funktionieren aber keine davon:

Delphi-Quellcode:

TImage(FindComponent('Kompo' + IntToStr(I))).FreeAndNil;

Delphi-Quellcode:

TImage(FindComponent('Kompo' + IntToStr(I))).Destroy;

Ich weiß, dass das mit den obigen Befehlen nicht klappt, aber ich weiß auch nicht, mit welchem Befehl es klappen würde. :mrgreen:

[mashutu]

Hi, versuch mal:

Delphi-Quellcode:

var
   img : TImage;
begin
...
   img:=TImage(FindComponent('Kompo' + IntToStr(I)));
   img.parent := NIL; //weiss nicht ob's das braucht
   RemoveComponent(Img);// ... oder das hier?
   img.free;
   img:=NIL; // an einigen Stellen im Source der VCL stehen ebenfalls Kommentare, dass FreeAndNIL
             // nicht geeignet ist
             // Danach sollte es mit 
   img:=TImage.Create(Parent); //klappen
   img.name:= ...
end;

Ich kann das gerade nicht testen, daher keine Garantie fuer den Source.

[mkinzler]

FreeAndNil ist keine Methode:
FreeAndNil(FindComponent('Kompo' + IntToStr(I)));

[uligerhardt]

Zitat:

Zitat von mkinzler

FreeAndNil ist keine Methode:
FreeAndNil(FindComponent('Kompo' + IntToStr(I)));

... und braucht eine Variable als Parameter, sonst kann es ja nix auf nil setzen. :mrgreen:

Delphi-Quellcode:

FindComponent('Kompo' + IntToStr(I)).Free

sollte also reichen.