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

Messages postés
41
Date d'inscription
vendredi 30 janvier 2004
Dernière intervention
18 janvier 2014
- 24 juin 2011 à 14:33 - Dernière réponse :
Messages postés
41
Date d'inscription
vendredi 30 janvier 2004
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 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
4996
Date d'inscription
dimanche 26 février 2006
Dernière intervention
27 mars 2018
- 24 juin 2011 à 15:36
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

Merci cs_cantador 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 90 internautes ce mois-ci

Commenter la réponse de cs_cantador
Messages postés
41
Date d'inscription
vendredi 30 janvier 2004
Dernière intervention
18 janvier 2014
- 28 juin 2011 à 08:57
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.