Effacer plusieurs Label crées dynamiquementRésolu

Question

Bonjour,
voila je cr&#233;e dynamiquement plusieur TLabel, pour les diferancier des autres labels du programme je leu attribut un Tag:=1 ...
Cela devrait normalement me permettre au moment venu d'effacer tous ces labels j'ai donc ce code pour les effacer :

for i:=0 to ComponentCount-1 do
if Components[i].Tag=1  then Components[i].Free;

Le probleme c'est qu'a chaque fois j'ai une erreur dy type : List Index of bounds(20)
et apres ca la boucle s'arrete ce qui fait qu'il me reste encore un tas de label.

Voial j'espere avoir &#233;t&#233; clair 

Alors si uelqu'un a une solution a mon probleme... merci :D

++

japee · Accepted Answer

Salut,

Essaye comme ceci :



for i := ComponentCount-1 downto 0 do   

    if Components[i].Tag = 1  then

      Components[i].Free;



Bonne prog'

japee · Answer

Heu... l'explication :



Si ta boucle commence par l'index 0, la suppression du composant fausse la donne : l'&#233;tendue de la boucle reste identique, mais le nombre de composants a diminu&#233;. Il y aura donc forc&#233;ment d&#233;passement d'index.



Bonne prog'

Don0Choa · Answer

ah ben c'est niquel puis j'avais pas d utout pens&#233; a ca!

merciiii  t'assure chaussure ! 

++

Don0Choa · Answer

Hm euh... en fait j'ai encore un ptit probl&#232;me,
maintenant quand j'&#233;x&#233;cute cette proc&#233;dure j'ai pratiquement toujours des Abstract Error  
ou Access violation ...

T'as une id&#233;e du probleme??

++

japee · Answer

D&#233;sol&#233;, je ne vois pas.

A priori, il ne me semble pas que &#231;a puisse venir de ce bout de code...



Bonne prog'

Effacer plusieurs Label crées dynamiquement

5 réponses

Votre réponse

Discussions similaires