Tmemo - Zeichen zählen

[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