TMemo zeichen zählen

[Taladan]

Ich möchte gerne in einen TMemo nur 255 zeichen zulassen. Sowohl Tabs wie auch Enter sind ausgeschaltet. WordWrap eingeschaltet. In der ersten zeile gibt es keien Probleme. in der Zweiten wird jede Leertaste als zwei in jeder Dritten als Drei Zeichen usw gezählt.
Auch der automatische Zeilenumbruch wird mitgezählt (mit unterschiedlicher anzahl an zeichen), wobei der doch eigenlich nur visuell ist (oder nicht?).

Wer kann helfen?

Delphi-Quellcode:

procedure TSchritt1.KurzbeschreibungKeyPress(Sender: TObject;
  var Key: Char);
var s : string;
    i : integer;
begin
  s := '';
  for i := 0 to (kurzbeschreibung.lines.count -1) do
    s := s + kurzbeschreibung.lines.text;
  i := 255 - Length(s);
  label4.caption := inttostr(i);
  if i = 0 then begin
   key := #0;
   Showmessage('Sie können nicht mehr als 255 Zeichen eingeben');
  end;

end;

[Christian Seehase]

Moin Taladan,

Zitat:

Zitat von Taladan

Auch der automatische Zeilenumbruch wird mitgezählt (mit unterschiedlicher anzahl an zeichen), wobei der doch eigenlich nur visuell ist (oder nicht?).

Eher "oder nicht".

Jeder Zeilenvorschub verbraucht 2 Zeichen (#13#10).

Die eingegebene Zeichenanzahl wäre also Length(Text)-Lines.Count*2

[Luckie]

Warum setzt du nicht die Eigenschaft Maxlength, oder wie die heißt, beim Memo? Dann mußt du dich um nichts mehr kümmern.