Discussion :

[Aooka]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
      for J := 1 to L_PanelListeF.Count - 1 do
      Begin
        K := 1;
        if L_PanelListeF.Items[K].LBL_vF.Text = sNom then
        Begin
          L_PanelListeF.Remove(L_PanelListeF.Items[J]);
          PanelListeF.DisposeOf;
          Next;
        End;
        K := K + 1;
      End;

Code changé : (mais ne marche pas.)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
J := 0;
      for PanelListeF In L_PanelListeF Do
      Begin
        if ((PanelListeF In L_PanelListeF) And (L_PanelListeF.Items[J].LBL_vF.Text = PanelListeF.LBL_vF.Text)) then
        Begin
          PanelListeF.DisposeOf;
          Next;
        End
        Else
        Begin
          L_PanelListeF.Add(PanelListeF)
        End;
J := J + 1;
      End;

Bonjour, j'ajoute des Strings dans une Liste de type TList<PanelPersonnalisé> (PannelPersonnalisé.sNom = String qui vient d'être ajouté). Je souhaiterais supprimer la String seulement si elle existe déjà dans ma liste pour évite des doublons, triplons, et ainsi de suite.

J'espère être clair dans ma demande.

Merci d'avance,
Bonne journée,
M.

[ShaiLeTroll]

Je n'ai essayé tes codes mais cela m'étonne que tu nous indique pas si tu as une exception comme IndexOutOfBounds, ce qui m'étonne

Lorsque tu supprimes un élément, cela réduit la liste, c'est un risque de dépassement
Je suppose que ton K servait à cela mais tu as mal placé son initialisation
D'ailleurs, tu ne sembles pas savoir que les listes commence à 0 et non à 1

En partant de la fin, tu supprimes l'élément en cours, et comme la boucle diminue, tu n'a plus ce problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
for I := List.Count - 1 downto 0 do
begin
  if List.Value = ValueToDelete then
    List.Delete(I);
end;

DisposeOf? c'est pour un développement FMX Mobile ???
Utilise Free si c'est du VCL Windows

Tu peux aussi utiliser une TStringList avec Objects[] contenant tes panels, voir l'option OwnObjects pour faciliter la libération
tu peux utiliser Sorted et Duplicates dupError et contrôler via IndexOf avant d'insérer (pour gérer une libération d'un objet créé que l'on ne peut pas ajouter car en doublon)