Ausgewählte Textzeilen in tMemo mit Quote versehen

[gkoeder]

Hallo!

bin grad am rumtüfteln, wie ich bei einer tMemo-Komponente den ausgewählten Zeilen ein Quote-Zeichen (z.B. '>' vor jede ausgewählte Zeile ähnlich wie in Newsreader-Programmen) voranstellen kann. Ich bin mir sicher, dass das ganze recht einfach funktionieren sollte - aber irgendwie komm ich grad nicht auf eine passende Lösung.
Hat vielleicht jemand eine Idee?

Viele Grüße
Gerald

[teebee]

Delphi-Quellcode:

Var StartZeile: Integer;
    EndZeile: Integer;
    i: Integer;
Begin
 If Memo1.SelLength>0 Then Begin
  StartZeile := Memo1.Perform(EM_LINEFROMCHAR,Memo1.SelStart,0);
  EndZeile := Memo1.Perform(EM_LINEFROMCHAR,Memo1.SelStart+Memo1.SelLength,0);
  For i := StartZeile To EndZeile Do
   Memo1.Lines[i] := '>'+Memo1.Lines[i];
  End; 
End;

Markiert allerdings auch Zeilen, die nur teilweise markiert sind.
Gruß, teebee

[gkoeder]

Hallo teebee,

Danke für den Tipp! Funktioniert prima!

Viele Grüße
Gerald