Einzelnen Beitrag anzeigen

Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.685 Beiträge
 
Delphi 11 Alexandria
 
#36

AW: Anzahl eines Zeichens im String ermitteln

  Alt 12. Jul 2018, 16:06
Anbei ein Benchmark Source-Only Projekt.
Eindeutiger Gewinner = StrScan()
Eindeutiger Verlierer = Ydobon mit x := Length(Data)-Length(StringReplace(Data, 'X', '', [rfReplaceAll])) .
Am zweitbesten schneidet bei mir alzaimar mit IFCount(Data, 'X'), respekt dafür
Dahinter alles andere, schlusslicht bei den normalen Methoden ist AnsiStrScan().

@Uwe, Dein letzter Code löst bei mir bei Aufruf eine Exception aus, der Code ist bereits enthalten, nur in der Mausklick Procedure rausgeklammert.
Angehängte Dateien
Dateityp: 7z Benchmark.7z (4,0 KB, 7x aufgerufen)
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat