Comment puis-je ajouter du texte à la dernière ligne d'un contrôle RichEdit?

Question

Comment puis-je ajouter du texte non à une nouvelle ligne mais à la dernière ligne existante? Lines.Add et Lines.Append ajouter du texte en tant que nouvelle ligne, et Lines.Insert a besoin d'une position que je ne sais pas comment trouver.

Answer 1

Vous pouvez utiliser la dernière ligne elle-même, ou le contenu entier:

// RE = TRichEdit, Temp = string; 
// Last line only 
Temp := RE.Lines[RE.Lines.Count - 1]; 
Temp := Temp + ' plus some new text'; 
RE.Lines[RE.Lines.Count - 1] := Temp; 

// The entire content 
Temp := RE.Text; 
Temp := Temp + ' plus some new text'; 
RE.Text := Temp; 

Notez que la première est meilleure, surtout quand le RichEdit contient une grande quantité de texte. Lire et écrire sur RichEdit.Text peut impliquer de déplacer beaucoup de texte dans la mémoire.

EDIT: Après le commentaire de l'OP à ma réponse:

Pour formater le texte, enregistrez SelStart avant d'ajouter, puis utiliser SelLength et SelAttributes pour appliquer la mise en forme:

// StarPos and Len are both Integers. 
StartPos := Length(RE.Text); 
Len := Length(YourNewTextToBeAdded); 
// Do stuff here to add text 
RE.SelStart := StartPos; 
RE.SelLength := Len; 
RE.SelAttributes.Style := RE.SelAttributes.Style + [fsBold]; 

Answer 2

Vous pouvez utiliser les propriétés "Strings" et "Count".

RichEdit1.Lines.Strings [RichEdit1.Lignes.Count-1]: = RichEdit1.Lines.Strings [RichEdit1.Lignes.Count-1] + 'Texte';

Answer 3

Effectuer

with RichEdit1 do 
begin 
Lines.Add(s); 
Perform(EM_SCROLL, SB_LINEDOWN, 0); 
end;