[Delphi] Distruggere oggetti a runtime

[tia86]

come si fa a distruggere (a runtime) un oggetto creato ankesso a runtime?

es ho questo codice


procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var btn: TButton;
begin
btn := TBUtton.create (self);
btn.parent:= Self;
btn.left:= X;
btn.top:= Y;
btn.Name := 'bottone'+inttostr(count);
count:=Count+1;
end;

variabile count:integer; (privata)

come si fa a fare in modo ke premendo un pulsante tutti i pulsanti vengano distrutti?

es.

for i:=1 to count do
begin
s:= 'bottone'+inttostr(i);
Freeandnil(s);
end;
(questo codice da errore di violazione)

[p87]

for i:=1 to count do
 FreeAndNil(FindComponent( 'bottone'+IntToStr(i) ))

Ciauz

[tia86]

Originariamente inviato da p87

for i:=1 to count do
 FreeAndNil(FindComponent( 'bottone'+IntToStr(i) ))

Ciauz

Grazie

[tia86]

strano nn funziona :master:

Costant object cannot be passed as var parameter

[tia86]

risolto!

bit : TComponent;

for i:=1 to count do
begin
s:= 'bottone'+inttostr(i);
bit:= FindComponent ('bottone'+inttostr(i));
FreeAndNil(bit);

end;

[alka]

Poni molta attenzione quando scandisci generalmente gli elementi di una lista, poichè il numero di elementi diminuisce di volta in volta (anche se, in questo caso, non mi sembra che si ricada in una situazione simile poichè la variabile Count è inizializzata manualmente).

L'approccio generico per la scansione con eliminazione dovrebbe essere, generalmente, percorso a rovescio per evitare "side effects":

for i := Count downto 1 do
  TButton(FindComponent('Bottone' + IntToStr(i))).Free;

Se generi molti bottoni, prevedi anche l'uso di una lista in cui memorizzarne i riferimenti durante la creazione: l'uso del metodo FindComponent rallenta sempre di più maggiore è il numero di componenti.

Ciao!

[tia86]

Perfetto

grazie alka