Im Text nach Zeichen suchen und die dann zählen - aber wie?

[DGL-luke]

jetzt kommt wieder mein berüchtigtes "Ich hab da mal was vorbereitet"

Naja, is schon länger her: http://www.delphipraxis.net/internal...ct.php?t=54673

Der Sourcecode wird dir da aber nicht viel helfen, das Buchstabenzählen sieht so aus:

Delphi-Quellcode:

//--------Rechenschleife---------//
for i := 1 to Len do
 begin
  if (i mod 1000) = 0 then application.ProcessMessages; //kann manrauslassen
  if getAsyncKeyState(VK_ESCAPE)<0 then  break;  // bei "ESC" wird abgebrochen
  c:=s[i]; //ähm... genau, c ist ein char, s ist der text, c wird also der ite buchstabe im text zugewiesen
  PBSum.Stepit; //PBSum ist die gesamtanzahl Buchstaben, die hier zu prüfzwecken inkrementiert wird
  bars[ord(c)].StepIt; //bars sind progressbars, die damit inkrementiert werden. man kann es genauso mit einem array of integer machen.
 end;