Anzahl der Zeilen in einem Richedit?

[Dragon27]

hi,

wie kann ich die Anzahl der zeilen in einem Richedit herausfinden bzw. in welcher Zeile der benutzer gerade ist?

Ich komm mit der Delphi-Hilfe da einfach net weiter!!!


Danke

[mirage228]

An die Anzahl der Zeilen kommst du mit

Delphi-Quellcode:

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

[Mirilin]

:hi:

Die Anzahl der Zeilen kriegst Du mit RichEdit.Lines.Count.

mfg Tobias

[Dragon27]

Zitat:

Zitat von mirage228

An die Anzahl der Zeilen kommst du mit

Delphi-Quellcode:

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

Bei diesem Quellcode zeigt er den Fehler an: [Fehler] Unit1.pas(51): Undefinierter Bezeichner: 'EM_EXLINEFROMCHAR' Warum?

[Mirilin]

:hi:

Ich glaube 'EM_EXLINEFROMCHAR' ist in der Unit RichEdit definiert -> dieselbige einbinden.

mfg Tobias

[Matze]

Delphi-Quellcode:

uses
  RichEdit;

Nachtrag: Tobi war mal wieder schneller. ;)