RichEdit - Zeile aus n-tes Zeichen (absolut)

[toms]

Delphi-Quellcode:

function RichEdit_RowFromPos(Re: TCustomMemo; Position: Integer): Longint;
begin
  Result := Re.Perform(EM_LINEFROMCHAR, Position, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := Format('%d', [RichEdit_RowFromPos(RichEdit1,55)]);
end;