Wie kann ich bei bei einen Memofeld die anzahl der Zeichen zählen?

Eigentlich so:
AnzahlZeichen := Length(Memo1.Text);

Hallo Taladan,
oder so kann man es auch machen:
AnzahlZeichen:=Memo1.GetTextLen; Tschüß Markus

Habs auch probiert, aber er zählt auch den #10#13 mit

Was für Zeichen möchtest du denn auslesen?

Tschüß Markus

Einfach als Infoanzeige. Ich möchte die zeichen und Zeilenanzahl in ein Label dann packen.
Beispiel: 17466 zeichen in 890 Zeilen

Ich hatte gefragt welche Zeichen du auslesen möchtest, nicht warum

Zitat:

Was für Zeichen möchtest du denn auslesen?

und zwar wegen

Zitat:

Habs auch probiert, aber er zählt auch den #10#13 mit

Tschüß Markus

Alle Zeichen. nur halt nicht dat enter also #10#13

Moin Taladan,

da je Zeile ein #13#10 enthalten ist, musst Du halt Zeilenanzahl*2 abziehen.

So jetzt nochmal ne kleine Funktion von mir, sie müsste eigentlich funzen.

zusammenfalten · markieren

Delphi-Quellcode:

var Text:PChar;
    ZeichenAnzahl:Integer;
begin
     ZeichenAnzahl:=0;
     Text:=Memo1.Lines.GetText;
     while (Text^ <> #0) do
            if not (Text^ in [#13,#10])
            then begin
                 inc(Text);
                 inc(ZeichenAnzahl);
                 end
            else inc(Text);
end;

Die Funktion zählt alle Zeichen außer #10,#13.

Tschüß Markus