RichEdit - Zeile aus n-tes Zeichen (absolut)

[mandumoal]

Hallo!

Gibt es eine Funktion die mir aus der absoluten Poition eines Zeichens im RichEdit die Zeilennummer errechnet?
Mit absolut meine ich von der ersten Zeile, erstes Zeichen an gerechnet.
Also beispielsweise das Zeichen 1525 -> befindet sich in der fünfzigsten Zeile

mfg mandumoal

[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;