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;

[DeddyH]

Müsste i nicht vor der Schleife mit 0 initialisiert werden?

[Medium]

Ups

[himitsu]

Einfacher/Optimierter Code?
Das True und den Jump-Befehl sollte Delphi auch noch wegoptimieren.

Das Exit ist eigentlich ein Break, aber da hier nichts mehr nach der Schleife kommt...

PS:
siehe FastMM, EurekaLog, GNU gettext, FastReport, PgDAC, TMS Workflow, SynEdit, JCL und Delphi VCL ... überall findet man while true do

[jaenicke]

Das ist zur Optimierung auch manchmal sinnvoll (wenn denn die Funktion wirklich so wichtig ist was die Geschwindigkeit angeht).

Aber das Exit in einer Zeile mit dem if zu verstecken ist richtig unsaubere Formatierung... Sorry, aber ist so...

[Medium]

Mein Einwand war auch eher als augenzwinkernde Parodie auf den sonst recht vorherschenden Wiederverwendbar- und Lesbarkeitswahn, der in so einer kleinen elementaren und zeitkritischen Funktion sicherlich nicht vorrangig ist - wenn auch, wie jaenicke zeigt, mit einfachen Mitteln (Formatierung) verbesserbar

[himitsu]

Ih hätte das auh mit einer If-Schlife aufbauen können