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

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

cs_cantador 4996 Messages postés dimanche 26 février 2006Date d'inscription 27 mars 2018 Dernière intervention - 24 juin 2011 à 15:36
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_cantador
alcat2002 41 Messages postés vendredi 30 janvier 2004Date d'inscription 18 janvier 2014 Dernière intervention - 28 juin 2011 à 08:57
0
Utile
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.