Tmemo - Zeichen zählen

[Taladan]

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

[alcaeus]

Eigentlich so:

Delphi-Quellcode:

AnzahlZeichen := Length(Memo1.Text);

[Markus K.]

Hallo Taladan,
oder so kann man es auch machen:

Delphi-Quellcode:

AnzahlZeichen:=Memo1.GetTextLen;

Tschüß Markus

[Taladan]

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

[Markus K.]

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

Tschüß Markus

[Taladan]

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

[Markus K.]

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

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

[Taladan]

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

[Christian Seehase]

Moin Taladan,

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

[Markus K.]

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

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