Rueckgabewerte von ueberladenen Funktionen?

[Dax]

@barf00s: Warum erzählst du solchen Unsinn?

Kuck dir das mal an:

Delphi-Quellcode:

program Project5;

uses
  Windows;

{$APPTYPE CONSOLE}

function TestF(I: Integer): Integer;
begin
  Result := I + 1;
end;

procedure TestP(I: Integer; var Result: Integer);
begin
  Result := I + 1;
end;

var
  Dump, I: Integer;
  _Begin, _End, _Dif: Int64;

begin
  Dump := 0;
  QueryPerformanceCounter(_Begin);
  for i := 0 to 10000000 do
    Dump := TestF(Dump);
  QueryPerformanceCounter(_End);
  _Dif := _End - _Begin;
  WriteLn('Functiontest : ', _Dif, ' Ticks');
  Dump := 0;
  QueryPerformanceCounter(_Begin);
  for i := 0 to 10000000 do
    TestP(Dump, Dump);
  QueryPerformanceCounter(_End);
  _Dif := _End - _Begin;
  WriteLn('Proceduretest: ', _Dif, ' Ticks');
  Readln;
end.

Und das Ergebnis, das dabei rauskommmt:

Zitat:

Functiontest : 165575 Ticks
Proceduretest: 326003 Ticks

Ich würde doch mal sehr behaupten, Prozeduren seien langsamer

Edit: Copy&Waste