tri d'un richedit en conservant les attributsRésolu

Question

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

cs_cantador · Accepted Answer

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

Utilisateur anonyme · Answer

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

Tri d'un richedit en conservant les attributs

2 réponses

Votre réponse

Discussions similaires