Richedit mettre en évidence des mots

Bonjour,

Sans doute simple mais je ne trouve pas. je débute avec richedit et sur les FAQs je ne trouve pas trop ce que je veux faire.

Je lis un richedit1 et je l'affiche dans un richedit2 lettre par lettre en voulant mettre en évidence un mot.

voici un bout de code mais je pense qu'il y a bcp mieux. car là (forcément... allez vous me dire...) il y a des retours à la ligne entre chaque lettre.. et question optimisation c'est sans doute pas terrible. :oops:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.Button2Click(Sender: TObject); var i:integer; begin for i:=1 to length(richedit1.text) do begin if (i>=3) and (i<=6) then RichEdit2.SelAttributes.Color := clRed else RichEdit2.SelAttributes.Color := clBlack;   Richedit2.Lines.add(richedit1.text[i]); end; end;

---

merci

Salut

Code:

---

Richedit2.Lines.add(richedit1.text[i]);

---

le Add ajoute forcément une ligne (c'est un TStrings). si tu veux concaténer à la dernière ligne, il faut écrire un truc du style

Code:

---

richedit2.Lines[richedit2.lines.count - 1] := richedit2.Lines[richedit2.lines.count - 1] + richedit1.text[i]

---

On doit pouvoir en effet optimiser la recherche des mots ...
JP

C'est marrant la concaténation marche bien, mais c'est la coloration qui marche plus ... on dirait que la modification de lignes existante n'utilise pas le SelAttributes ... c'est navrant :roll: :bug:
je me rappelle que je m'y était cassé les dents à une époque !

Citation:

---

Envoyé par J-P-B

C'est marrant la concaténation marche bien, mais c'est la coloration qui marche plus ... on dirait que la modification de lignes existante n'utilise pas le SelAttributes ... c'est navrant :roll: :bug:
je me rappelle que je m'y était cassé les dents à une époque !

---

effectivement ça ne marche qu'a la ligne

pour travailler sur les mots regarde par ici http://www.developpez.net/forums/sho...18&postcount=6

T'es pas le seul à t'être cassé les dents là-dessus.
En fait la réponse est inscrite dans le libellé même de SelAttributes : Toute modification apportée aux proprétés (Color, etc) n'ont d'effet que sur la partie de texte sélectionnée et cette partie de texte sélectionnée se réduit en l'absence de sélection au caret ce qui a comme conséquences "qu'un coup ça marche et un coup ça marche pas" selon qu'il y a ou pas sélection et selon la position du caret.

Pour éviter ceci il est préférable d'utiliser des séquences du type :

Code:

---

1 2 3 4 5 6 7 8 9 10

var selFin : integer; ... RichEdit2.SelAttributes.Color := clRed; Richedit2.Lines.add('Mon titre de paragraphe'); selFin:=Richedit2.SelStart; //récupère la position du caret à la fin du Add //Et si je veux que le rouge ne s'applique que sur le mot 'titre' de 'Mon titre de paragraphe' : SelFin:=selFin-length(' de paragraphe'); Richedit2.SelStart:=selFin-length('titre'); Richedit2.SelLength:=SelFin-Richedit2.SelStart; // à ce stade le mot 'titre' est sélectionné et le rouge s'y applique

---

:
... bien entendu on peut transformer ce bout de code par une petite procédure réutilisable du type :
procedure redAjouterEnEvidence(red : tRichEdit; ligne : string; motEnEvidence : shortString; color : TColor);
A+