PosEx? Oder doch lieber Pos? - Performance!

[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?

[dGeek]

Zitat von Stevie:

in XE schien Pos enorm langsam zu sein und nicht etwa PosEx schneller

Also entweder bin ich müde, oder ich beherrsche die deutsche Sprache nicht. Ist das hier nicht doppelt gemoppelt?
Du sagst, Pos scheint enorm langsam zu sein, und dass PosEx nicht schneller ist. Was ist denn nun schneller gewesen bei deinem Test

[Pixel]

..........nvm