Memo Zeichenzähler mit Eingabe

**DaveRidge**

Hallo, ich hab ein kleines Problem. Ich möchte die Zeichen vom Memo feld auslesen, sodass das mit der MaxLength passt. Nur die Eingabetaste nimmt er nicht mit, warum weiss ich net.
Hier ist bis jetzt mein Code:

zusammenfalten · markieren

Delphi-Quellcode:

			var wort: string;

zeichenzahl, zeilenzahl,i,zeile,zeichenzaehler: Longint;

begin

 Zeichenzahl:=Memo1.lines.count;

 Zeichenzaehler:=0;

  FOR i:=0 TO zeichenzahl-1 DO

   Begin

    wort:=memo1.lines[i];

   zeichenzaehler:=zeichenzaehler+length(wort);

   end;

Form1.StatusBar1.Panels[1].Text:=('Zeichenzahl: ' + InttoStr(zeichenzaehler));

Ich Bitte um Hilfe

MfG Dave

Memo Zeichenzähler mit Eingabe

Memo Zeichenzähler mit Eingabe

Forumregeln