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.