Apagar Níveis Em Uma Treeview:

[Ivano]

Olá amigos,

estou tentando apagar todos os subníveis de uam treview, que estiverem acima do 2º nível, mas está dando erro. tentei fazer assim:

for i := 0 to tvp.Items.Count-1 do

if tvp.Items.Level > 0 then

Dispose(tvp.Items.Data);

tvp.Items.Clear;

Só que assim apaga tudo!

Alguém sabe me dizer o que ocorre? Lembrando que eu quero apagar todos os níveis do 3º pra frente.

Ajudem aí! Obrigado. :)

[Ivano]

Já descobri, é assim:

while i <= tvp.Items.Count-1 do begin

if tvp.Items.Level > 2 then begin

Dispose(tvp.Items.Data);

tvp.Items.delete;

end;

i:=i+1;

//tvp.Items.Clear;

end;

[s3c]

Acho que esse While tem um pequeno furo. Se você tiver dois níveis 3 seguidos, o segundo não será excluído; sem contar que se você tiver níveis 4 em diante, sua variável i estará totalmente incompatível com o tvp.Items.Count.

Acho que seria melhor você excluir através de um for na ordem inversa.