Delphi-Quellcode:
Zeile gibt die Zeile an // die Zählung beginnt bei 0
Var i, i2: Integer;
i2 := 0;
For i := 0 to Zeile - 1 do
Inc(i2, Length(RichEdit1.Lines.Strings[i]) + 2); // entspricht i2 := i2 + Length(RichEdit1.Lines.Strings[i]) + 2;
RichEdit1.SelStart := i2;
RichEdit1.SelLength := Length(RichEdit1.Lines.Strings[Zeile]);
über RichEdit1.SelAttributes kannst du die Schrift/Farbe ändern