Jump to content
Fórum Script Brasil
  • 0

Apagar Níveis Em Uma Treeview:


Ivano
 Share

Question

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. :)

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0

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.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      151k
    • Total Posts
      649.1k
×
×
  • Create New...