PosEx? Oder doch lieber Pos? - Performance!

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