Anzahl eines Zeichens im String ermitteln

[EgonHugeist]

Zitat von KodeZwerg:

Bei der "von-Vorne-und-Hinten" die EgonHugeist schrieb ist kein merklicher Zugewinn spürbar, habs testhalber mit 500MB paar mal durch, das nimmt sich nichts mit Deiner vorigen Methode.

War auch nicht der Zweck. Es ging um die ursprüngliche Frage un das aufweisen verschiedener Varianten.

Wegen der Performance:
Habe mir Uwes Test mit XE10.2-Starter compiliert und meine 2 weiteren Version hinzugefügt.

Zitat:

Starting Benchmark, please be patient...
KodeZwerg's custom Benchmark - DP CountCharInString Edition
Result := 7982

Calibrate - Target missed: 0 <> 7982
00000 Calibrate
04872 1234588 miep
07772 Ydobon
04088 marabu
05025 Missionar
04432 alzaimar
04273 Uwe Raabe StringCountChar
04059 Uwe Raabe StringCountCharFor
04038 KodeZwerg CountCharInString
09867 KodeZwerg CharInStringA
04543 Neutral General CharCountAsm
04378 Uwe Raabe CharCount
04018 Egon Hugeist CharCount_1
04455 Egon Hugeist CharCount_2
04535 Egon Hugeist CharCount_Double_Sided
04671 Delphi CountChar
Benchmark finished!

2. Run:

Zitat:

Starting Benchmark, please be patient...
KodeZwerg's custom Benchmark - DP CountCharInString Edition
Result := 7982

Calibrate - Target missed: 0 <> 7982
00000 Calibrate
04806 1234588 miep
07723 Ydobon
04048 marabu
05072 Missionar
04646 alzaimar
04277 Uwe Raabe StringCountChar
04317 Uwe Raabe StringCountCharFor
04064 KodeZwerg CountCharInString
10165 KodeZwerg CharInStringA
04541 Neutral General CharCountAsm
04364 Uwe Raabe CharCount
03997 Egon Hugeist CharCount_1
04501 Egon Hugeist CharCount_2
04523 Egon Hugeist CharCount_Double_Sided
04656 Delphi CountChar
Benchmark finished!

@Uwe
kannst du das bestätigen? Mir gehen die 30% Performance-Verlust bei meiner Variante 1 ab. Wo sind sie denn hin? Spielt der Compiler Streiche? Habt ihr andere Ergebnisse?