PosEx? Oder doch lieber Pos? - Performance!

[dGeek]

Ich habe heute eine sehr interessante Entdeckung gemacht. Ihr habt sie wahrscheinlich schon vor langer Zeit gemacht, ich leider erst eben.
Ich habe entdeckt, dass PosEx() viel schneller arbeitet als Pos().

1.000.000 Mal if Pos(IrgendeinString, UndNochIrgendeinString) > 1 werden bei mir innerhalb von circa 570 Millisekunden abgearbeitet.
Dasselbe mit PosEx jedoch innerhalb von circa 140 Millisekunden.

Sollte man demnach lieber PosEx() benutzen statt Pos()?

[Der schöne Günther]

Machst du in deinem Programm wirklich 1 Mio mal hintereinander Posex oder auf mehrere Jahrzehnte verteilt? Mir persönlich ist das eigentlich immer ziemlich egal ob irgendein Wartevorgang für ein "Ich klicke auf irgendwas" nun 30 oder 31 Millisekunden dauert.

Und ja, technisch gesehen ist dieser Beitrag nicht hilfreich.

[dGeek]

Selbstverständlich mache ich das nicht. Aber ich fand es schon interessant, dass PosEx() um den Faktor 3 schneller ist.

[Helmi]

was gibst du denn bei PosEx als Offset an?

[Der schöne Günther]

Also eine Millionen mal dauert Posex bei mir 6 Millisekunden und 7 Millisekunden für "Pos".

Delphi-Quellcode:

program Project11;

{$APPTYPE CONSOLE}

{$R *.res}

uses System.SysUtils, System.AnsiStrings, System.Diagnostics;

const
 s1 = 'Hallo Welt';
 s2 = 'lo';

 count = 1E6;

//{$Define Posex}

var
   times: Integer;
   result: Integer;
   stopWatch: TStopwatch;
begin
   times := 0;
   stopWatch := TStopwatch.StartNew();
   repeat
      {$If Defined(Posex)}
         result := System.AnsiStrings.PosEx(s2, s1);
      {$Else}
         result := System.Pos(s2, s1);
      {$EndIf}
      Inc(times);
   until (times = count);
   stopWatch.Stop();

   Writeln( stopWatch.ElapsedMilliseconds );
   readln;
end.

Wenn du in die Implementation schaust wirst du sehen dass PosEx nichts anderes tut als Pos aufzurufen. PosEx hat aber noch eine "inline"-Direktive. Ich kann kein Assembler lesen, könnte mir aber vorstellen dass der Compiler dann das komplette "Pos" inlined sodass er sich einen Sprung spart. Könnte das mal jemand prüfen?

[dGeek]

Zitat von Der schöne Günther:

Also eine Millionen mal dauert Posex bei mir 6 Millisekunden und 7 Millisekunden für "Pos".

- Wir haben nicht dieselbe Delphi-Version
- Wir haben nicht denselben Computer

[p80286]

Zitat von dGeek:

Zitat von Der schöne Günther:

Also eine Millionen mal dauert Posex bei mir 6 Millisekunden und 7 Millisekunden für "Pos".

- Wir haben nicht dieselbe Delphi-Version
- Wir haben nicht denselben Computer

Welche Delphi-Version hast Du denn?

Gruß
K-H

[dGeek]

XE2 benutze ich.

[Zacherl]

In den neuen Delphi Versionen scheint PosEx nur noch ein Alias für Pos zu sein. Früher hatte Pos noch nicht den optionalen Offset Parameter, deshalb brauchte man eine seperate PosEx Funktion.

[Stevie]

Ich hab mal dem Code von Günther in XE und Berlin getestet und muss sagen, in XE (und vermutlich dann auch XE2) schien Pos enorm langsam zu sein und nicht etwa PosEx schneller (im Vergleich zu den Ergebnissen in Berlin)

P.S. Ich hab natürlich die Unicode Version von PosEx aus StrUtils verwendet und nicht die AnsiString Version - wir wollen ja nicht Äpfel und Birnen vergleichen, gell?