Zeichen pro Zeile in DBMemo begrenzen

[freak4fun]

Hallo ,
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