XE2 Stringfunktion + ASM code : function CountString(...)

[Medium]

Himiiii! "while true" und "Exit" - wo komms du denn her?

Delphi-Quellcode:

function CountString(const SubStr, S: String): Integer;
var
  i: Integer;
begin
  Result := 0;
  i := 0;
  repeat
    i := PosEx(SubStr, S, i + 1);
    if i > 0 then
      Inc(Result);
    // oder
    Inc(Result, IfThen(Result>0, 1, 0));
    // Könnte nur langsamer sein
  until i = 0;
end;