Anzahl der Zeilen in einem Richedit?

[mirage228]

An die Anzahl der Zeilen kommst du mit

RichEdit1.Lines.Count An die Positionen mit

Delphi-Quellcode:

var
  CharPos: TPoint;
begin
  CharPos.Y := SendMessage(RichEdit1.Handle, EM_EXLINEFROMCHAR, 0,
    RichEdit1.SelStart);
  CharPos.X := (RichEdit1.SelStart -
    SendMessage(RichEdit1.Handle, EM_LINEINDEX, CharPos.Y, 0));
  Inc(CharPos.Y);
  Inc(CharPos.X);
  // Status.Panels[3].Text := Format('Zeile: %3d   Spalte: %3d', [CharPos.Y, CharPos.X]);
end;

mfG
mirage228