Zeichen pro Zeile in DBMemo begrenzen

[buyden]

Hi

Ich möchte gern die Anzahl der Zeichen einer Zeile begrenzen, die in einem DBMemo geschrieben werden.
Nach 50 Zeichen soll ein Zeilenumbruch gemacht werden.

Wie kann ich das denn anstellen?

[buyden]

Man könnte doch sicher OnChange die Zeile in ne Variable auslesen und die Zeichen zählen lassen.
Dann müsste man nur noch sagen das er in die nächste Zeile hüpfen soll wenn die Anzahl größer als 50 ist . Allerdings weiß ich nicht, wie ich den Index der aktuellen Zeile bekomme und überhaupt muss das doch noch irgendwie einfacher gehen oder??

:twisted:

[freak4fun]

Hallo :hi:,
ich hab was bei den Schweizern gefunden.

Delphi-Quellcode:

function RichCol(m: TCustomMemo): Longint;
begin
  Result := m.SelStart - SendMessage(m.Handle, EM_LINEINDEX, SendMessage(m.Handle,
    EM_LINEFROMCHAR, m.SelStart, 0), 0);
end;

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if RichCol(Form1.Memo1) > 49 then
    begin
      ...
    end;
end;

MfG
freak