Tri d'un richedit en conservant les attributs [Résolu]

Messages postés
41
Date d'inscription
vendredi 30 janvier 2004
Statut
Membre
Dernière intervention
18 janvier 2014
- - Dernière réponse : alcat2002
Messages postés
41
Date d'inscription
vendredi 30 janvier 2004
Statut
Membre
Dernière intervention
18 janvier 2014
- 28 juin 2011 à 08:57
salut a tous!
je doit trier un richedit, et je procede de la sorte:

Procedure Trier(List:TStrings);
Var i,j:Integer;
s :String;
Begin
For i:=0 To List.Count-2 Do
For j:=i+1 To List.Count-1 Do
If List[i]>List[j]
Then Begin
s:=List[i];
List[i]:=List[j];
List[j]:=s;
End;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
Trier(richedit1.Lines);
end;

Les lignes comportent des mots en couleur, comment faire pour conserver les attributs?

Merci!
AlcAt
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
4996
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
8
3
Merci
Bonjour,

piste :
Un TRichEdit n'est pas fait pour trier...
si tu tiens à le conserver effectue ton tri en dehors et
replace les données ensuite.

cantador

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 127 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_cantador
Messages postés
41
Date d'inscription
vendredi 30 janvier 2004
Statut
Membre
Dernière intervention
18 janvier 2014
0
Merci
bon ben j'vais faire comme ca alors..
domage qu'il n'existe pas de composant qui puisse le faire sans se prendre le chou...
Thanks!

AlcAt
Commenter la réponse de alcat2002