Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i, x: Integer;
Start, Ende, Zeit: TDateTime;
begin
x := 0;
Start := Now;
for i := 0 to 2147483647 do
begin
(*Variante 1: Hier wird der Wert nur ein einziges Mal übergeben*)
if i = 0 then x := i;
(*Variante 2: Hier wird der Wert jedes Mal übergeben*)
//x := i;
end;
Ende := Now;
Zeit := Ende - Start;
ShowMessage('Fertig bei x = ' + IntToStr(x) + ^j + 'Dauer: ' + TimeToStr(Zeit));
end;
Hab mal schnell etwas gebastelt. Es geht zwar genauer, aber für grobe Berechnung reicht es.
Laut der Routine dauert es doppelt so lange bei 2147483647 Abfragen und nur einer Zuweiseung, als wenn der Wert 2147483647 Mal übergeben wird.