Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.443 Beiträge
 
Delphi 12 Athens
 
#103

AW: Anzahl eines Zeichens im String ermitteln

  Alt 14. Jul 2018, 11:04
Ich habe mal mein XE10.2-W32 Compilate (release) angehängt. Wenn deine Version immernoch die schnellste mit der EXE ist, dann ist der Compiler ausgeschlossen und da macht deine Hardware einen guten Job.
Da scheint es beim Compiler doch noch Unterschiede zu geben, aber auch der Prozessor spielt wohl eine Rolle:

Zitat:
00000 Calibrate
03609 1234588 miep
05863 Ydobon
02910 marabu
03662 Missionar
03607 alzaimar
03121 Uwe Raabe StringCountChar
03025 Uwe Raabe StringCountCharFor
02665 KodeZwerg CountCharInString
11464 KodeZwerg CharInStringA
05983 Neutral General CharCountAsm
03961 Uwe Raabe CharCount
04070 Egon Hugeist CharCount_1
03793 Egon Hugeist CharCount_2
03114 Egon Hugeist CharCount_Double_Sided_3
03126 Egon Hugeist CharCount_Double_Sided_4
03805 Delphi CountChar

Dies ist die eine typische Technik um die Loops zu reduzieren.
... und ein direkter Weg ins Desaster, wenn die Stringlänge nicht durch 8 teilbar ist! Die Bedingung der ersten While-Schleife passt nicht so richtig, oder?
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat