Markierung verschiebt sich in jeder Zeile

[DeddyH]

Vielleicht auch einfach so (schnell heruntergetippelt, Komponenten nicht einmal umbenannt):

Delphi-Quellcode:

procedure TForm6.AddZeile(sHeader, sText: string);
var
  TotalLength: integer;
begin
  TotalLength := Length(sHeader) + Length(sText);
  RichEdit1.Lines.Add(sHeader + sText);
  RichEdit1.SelStart := RichEdit1.SelStart - Succ(TotalLength);
  RichEdit1.SelLength := Length(sHeader);
  RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style + [fsBold];
  RichEdit1.SelStart := RichEdit1.SelStart + TotalLength;
  RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style - [fsBold];
end;