Nur mal der Vollständigkeit halber die Methode mit PosEx:
Delphi-Quellcode:
procedure TextLength(txt: String; ignore: Char);
var
count, pos: Integer;
begin
pos := 0;
count := -1;
repeat
pos := PosEx(ignore, txt, Succ(pos));
Inc(count);
until pos = 0;
ShowMessage(IntToStr(Length(txt)) + ' Zeichen - '
+ IntToStr(count) + ' "' + ignore + '" = '
+ IntToStr(Length(txt) - count) + ' Zeichen');
end;
EDIT: Das kommt davon, das man mehrere Tage irgendwelche Tabs offen lässt. Dank Browsercache steht da dann immer noch "heute" beim letzten Beitrag
