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