[DELPHI] Cancellazione di nodi e sottonodi in un controllo TreeView

[melk75]

Ciao a tutti, spero che dalle vostre parti faccia meno caldo che in Sicilia visto che siamo solo a maggio! :master:
Sto sviluppando un programmino in cui uso un componente TreeView, nel quale vengono caricati manualmente dei nodi con i rispettivi sottonodi. Ad un certo punto ho bisogno che i nodi e i sottonodi vengano cancellati completamente...insomma che non rimanga più nulla visualizzato nel componente! Credevo di aver risolto così:

procedure TFormMyTricks.BitBtn1Click(Sender: TObject);
VAR
  i:integer;
  ic:integer;
begin
  ic:=TreeView1.Items.Count;
  for i := 0 to ic - 1 do
    begin
      TreeView1.Items[i].Delete;
    end;

invece no ! Cancella fino ad un certo punto e poi da errore con mess: 'invalid index'!!! :berto:
Dove sto clamorosamente sbagliando!!!???

[melk75]

Ragazzi..pensavo di ricevere una mare di "insulti" e "rimproveri" per questo post..insomma pensavo di essermi perso in una banalità..ma visto che nessuno ha risposto forse non si tratta proprio di una banalità!!!

[alka]

Originariamente inviato da melk75
Cancella fino ad un certo punto e poi da errore con mess: 'invalid index'!!! :berto:
Dove sto clamorosamente sbagliando!!!???

Sbagli nel punto in cui fai un ciclo usando come estremo superiore il numero di elementi, che non rimane costante ma bensì sì riduce proprio per il fatto che stai eliminando dei nodi.

La soluzione più rapida e indolore, in questo caso, è rovesciare il ciclo.

Prendendo il tuo codice come esempio:

procedure TFormMyTricks.BitBtn1Click(Sender: TObject);
VAR
  i:integer;
  ic:integer;
begin
  ic:=TreeView1.Items.Count;
  for i := ic - 1 downto 0 do
    begin
      TreeView1.Items[i].Delete;
    end;

Ciao!

[XWolverineX]

Vedo doppio o qui una marea di gente oggi ha voglia di Delphi?

[alka]

Originariamente inviato da XWolverineX
Vedo doppio o qui una marea di gente oggi ha voglia di Delphi?

No, solo io.

Ho solo cercato di rispondere ad alcune domande delle recenti domande su Delphi (vecchie al max di un paio di settimane).

Ciao!