RichEdit Markierung Zeilennummer oben und unten

[marabu]

Hallo,

mit der Message EM_LINEFROMCHAR kann man den Zeilenindex zu einem beliebigen Zeichenoffset ermitteln:

Delphi-Quellcode:

var
  iLine, iOffset: Integer;
begin
  with RichEdit do
  begin
    iOffset := SelStart;  // SelStart + SelLength
    iLine := Perform(EM_LINEFROMCHAR, iOffset, 0);
  end;
end;

Grüße vom marabu