Discussion :

[delphidebutant]

Bonjour,

Sur une TStringList, il y a moyen d'éliminer les doublons.

Peut-on faire la même chose avec un TMemo, ou existe-t-il un composant standart qui fasse TMemo+pouvoir éliminer les doublons, si besoin ?

Merci pour votre aide

[portu]

Salut,
qu'appelles tu "doublons" dans un memo ?
groupe de caractères ou ligne entière ?
Une petite fonction perso te fera celà sans problème

Si tu as besoin d'aide, donnes nous un peu plus d'information sur ce que tu souhaites.
A+

[Bloon]

Pour éliminer les lignes en double, il faut faire une fonction :

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
18
19
20
21
22
procedure eliminerDoublons(liste : TStrings);
var
  i : integer;
  tmp : TStringList;
begin
  tmp := TStringList.Create;
  try
    for i := 0 to liste.Count - 1 do
      if (tmp.IndexOf(liste.strings[i]) = -1) then
        tmp.Add(liste.strings[i]);
    liste.Assign(tmp);
  finally
    tmp.Free;
  end;
end;
 
// Exemple :
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  eliminerDoublons(memo1.Lines);
end;

Bloon

[delphidebutant]

Pardon, c'est vrai que c'était pas clair.
Doublon = ligne entière, pour l'appli que je veux faire.

De plus, je voudrais pouvoir classer les lignes de mon TMemo, avec une fonction alphabétique un peu particulière :

n<u<p<z<q, par exemple.

On doit pouvoir personaliser une fonction sort.

Le TStringList semble bien adapté, mais il existe peut-être une adaptation du TMemo ?

[delphidebutant]

Ok, je viens de voir ta réponse Bloon.

Je vais pas me casser la tête : tout transférer dans une TStringList.

Merci pour vos réponses.