Anzahl eines Zeichens im String ermitteln

[KodeZwerg]

Zitat von Uwe Raabe:

So ganz verstehe ich noch nicht, was du mit deine avg-Berechnung genau erreichen willst.

Ich wollte damit den tatsächlichen Durchschnittswert damit ermitteln und nicht die Mitte von Min und Max als Score festlegen.
Dank Deines Links und Text bin ich nun im Bilde.

edit

Delphi-Quellcode:

      if Loops = 0 then
      begin
        Min := Curr;
        Max := Curr;
        Avg := Curr;
      end
      else
      begin
        if Curr < Min then Min := Curr;
        if Curr > Max then Max := Curr;
        Avg := Avg + Curr;
      end;
      if fCancel = True then Break;
    end; // <- hier endet eine For-Schleife (Loops)
    Avg := Avg / Loops;

So habe ich es nun geregelt, sollte overhead reduzieren. Vielen Dank Uwe!