Discussion :

[giaco]

Bonjours,

J'ais placé le code suivant dans une TStringList :

Code:

Code :

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

1
2
3
4
5
6
7
8
9
 
CREATE TABLE FICHIERCLIENT ( 
CLIENT CHAR(50), 
NUMCLIENT INTEGER, 
CLIENT CHAR(50), 
NUMCLIENT CHAR(50), 
Famille CHAR(50), 
test CHAR(50), 
);

J'aimerais pouvoir faire une recherche de tous les champs en doubles et les suprimer.
Quelqu'un aurrait il une idée ?
Il faut savoir que cette liste peut atteindre 30 lignes.

D'avance merci pour votre aide.

Cordialement,

[Lung]

Pourquoi ne pas utiliser une table paradox à la place ?
Après, une simple requête SQL suffirait.

[DidiLogic]

Une solution simple serait de recopier ta liste dans une autre en verifiant pour chaque element ajoute , qu'il n'existe pas encore dans la nouvelle.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
var
  ls_bis : TStringList;
...
ls_bis := TStringList.Create;
try
  for i := 0 to ls.Count-1 do begin
    s := ls[i];
    if ls_bis.Pos(s) >= 0 then ls_bis.Add(s); 
  end;
  ls.Clear;
  ls.AddStrings(ls_bis);
finally
  ls_bis.Free;
end;

[DidiLogic]

Une solution simple serait de recopier ta liste dans une autre en verifiant pour chaque element ajoute , qu'il n'existe pas encore dans la nouvelle. Ensuite tu recopie la nouvelle dans l'ancienne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure Nettoyer;
var
  ls_bis : TStringList;
begin
  ls_bis := TStringList.Create;
  try
    for i := 0 to ls.Count-1 do begin
      s := ls[i];
      if ls_bis.Pos(s) >= 0 then ls_bis.Add(s); 
    end;
    ls.Clear;
    ls.AddStrings(ls_bis);
  finally
    ls_bis.Free;
  end;
end;