Zeile bis zum Ende markieren in einem Text

[marabu]

Und noch etwas Code:

Delphi-Quellcode:

begin
  with RichEdit do
  begin
    SelStart := FindText(searchText, 0, MaxInt, []);
    if SelStart >= 0 then
    begin
      SelStart := SelStart + Length(searchText);
      SelLength := Length(Lines[CaretPos.Y]) - CaretPos.X;
    end;
  end;
end;

Grüße vom marabu