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:

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

[Luckie]

Warum nicht
Length(Memo1.Text)

[DaveRidge]

Zitat von Luckie:

Warum nicht
Length(Memo1.Text)

Weil er dann bei der eingabetaste 2 Zeichen hinzufügt, statt ein zeichen.

MfG Dave

[Luckie]

Ist ja auch richtig. Ein Return führt zu einem Zeilenvorschub und einem Wagenrücklauf. Und die zählen auch zu der Anzahl Zeichen.

[DaveRidge]

Zitat von Luckie:

Ist ja auch richtig. Ein Return führt zu einem Zeilenvorschub und einem Wagenrücklauf. Und die zählen auch zu der Anzahl Zeichen.

Ja, das stimmt, aber er soll bei der Eingabe nur ein zeichen zählen, denn wenn ich ne SMS sende, dann kommen nur 148 Zeichen oder so an, keine 160 Zeichen, wie ich das im Text geschrieben habe, versteht ihr?

[Luckie]

Na dann ziehe die Anzahl der Zeilen wieder ab. Dann müsste es stimmen. Bei zwei Zeilen hast du vier Steuerzeichen minus zwei Zeilen sind ein Steuerzeichen pro Zeile.

[DaveRidge]

Zitat von Luckie:

Na dann ziehe die Anzahl der Zeilen wieder ab. Dann müsste es stimmen. Bei zwei Zeilen hast du vier Steuerzeichen minus zwei Zeilen sind ein Steuerzeichen pro Zeile.

Das hab ich jetzt auch mal gemacht, von den Zeichen her passt es, nur beim Eingabe zählt er immernoch 2 Zeichen, aber dann bei der neuen Zeile der erste Buchstabe zählt er nicht mit. Er fängt dann beim 2.ten Zeichen an.

MfG Dave

[Luckie]

Dann von Hand zählen:

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private-Deklarationen }
    cntChars: Integer;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  Inc(cntChars);
  Caption := IntToStr(cntChars);
end;

[DaveRidge]

Zitat von Luckie:

Dann von Hand zählen:

Delphi-Quellcode:

....

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  Inc(cntChars);
  Caption := IntToStr(cntChars);
end;

Jo, danke. genau das hab ich gesucht. Warum bin ich heut net selber dahinter gekommen?
Ist mir ein rätsel

Trotzdem danke

MfG Dave