Hallo Neuni,
ich habe es mal ausprobiert:
Delphi-Quellcode:
procedure TFAuf.SpeedButton4Click(Sender: TObject);
const
crlf = chr($0D) + chr($0A); // #13#10
begin
s := rtfpp.Text;
i := Pos(crlf, s);
if i > 0 then begin
rtfpp.SelStart := i +1; // <-- hier hatte ich +2 erwartet
s := copy(s, i +1, length(s));
i := Pos(crlf, s);
if i = 0
then rtfpp.SelLength := length(s)
else rtfpp.SelLength := i;
rtfpp.SelAttributes.Color := clBlue;
end;
end;
Mit dem obigen Code wird die 2. Zeile auf Farbe Blau gesetzt und komplett fett geschrieben.
Damit wäre Dein Problem wohl gelöst, Du mußt Dir nur überlegen, wie Du die Stelle findest, die Du vom Programm aus ändern willst. Soll eine ganze Zeile markiert (= geändert) werden, dann mußt Du das ganze bloß noch in eine entsprechende Schleife verpacken.
mfg
eddy