Procedure vs Function, Vor- und Nachteile

[KodeZwerg]

Kleiner Bench Verbesserungs-Vorschlag

Delphi-Quellcode:

const
  amount = 1000000;
  attempts = 50;
var
  x,y: cardinal;
//  tickstart, tickfinish: cardinal;
  ticks: cardinal; // eine variable genügt
//  allcounts: cardinal;
  s: String;
begin
  Randomize; // einmal reicht, oder?
  SetLength(s, Random(255)); // lieber nur ein random um ein ein präziseres ergebniss zu erhalten, man will ja nicht random benchen
//  allcounts := 0;
  for x := 1 to attempts do
  begin
    y := 1;
    ticks := GetTickCount;
//    tickstart := GetTickCount;
    while y <= amount do
    begin
//      Randomize;
//      SetLength(s, Random(255));
      //entw Foo(s);
      //oder FooC(s);
      //oder FooV(s);
      inc(y);
    end;
//    tickfinish := GetTickCount;
//    allcounts := allcounts + tickfinish - tickstart; // 0 + tickdifferenz
    ticks := GetTickCount - ticks;
  end;
//  showmessage(inttostr((allcounts div attempts)));
  showmessage(inttostr((ticks div attempts)));
end;

Ich habe es noch nicht getestet aber so erscheint es mir logischer

[himitsu]

Uhrzeit (GetSystemTime und Andere) - maximal Millisekunden
GetTickCount - meistens 15-16 Millisekunden
QueryPerformanceCounter - schnell, x Nanosekunden
RDTSC (Read Time-Stamp Counter) - schneller, es waren mal CPU-Ticks

TThread.GetTickCount - bestimmt GetTickCount
TStopwatch - QueryPerformanceCounter im Windows
(TPlatformServices.Current as IFMXTimerService).GetTick - QueryPerformanceCounter im Windows

[Dennis07]

Zitat von KodeZwerg:

...

1. ist doch völlig belanglos, das Ergebis ist das gleiche
2. ich schrieb bereits dass der code nur hingerotzt ist. musste es sogar erstmal formatieren, damit es hier nicht ganz so peinlich rüberkommt
3. die meisten sachen (doppelte variablen, randomization bei jedem durchlauf, ...) waren schon so beabsichtigt, um das ergebnis möglichst repräsentativ zu halten und nicht zu verfälschen. Wenn du sie aber weglassen willst, tu das. Die Funktion wurde ja ursprünglich auch nicht für das hier geschrieben, sondern für was anderes...