Performanz von verschachtelte if- Abfragen

[dominikkv]

so hier ein test:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Zeit1, Zeit2: Cardinal;
  I, Dummy: Integer;
const
  Durchläufe = 100000000000;
begin
  Dummy := 0;
  Zeit1 := GetTickCount;

  for I := 0 to Durchläufe do
    if I <= Durchläufe then
      Inc(Dummy);

  Zeit1 := GetTickCount - Zeit1;
  Dummy := 0;
  Zeit2 := GetTickCount;

  for I := 0 to Durchläufe do
    Inc(Dummy);

  Zeit2 := GetTickCount - Zeit2;

  showmessage(Format('Ich habe für %d if-Abfragen %d Millisekunden benötigt!'#13#10+
    'Das sind %12.10f Millisekunden pro if-Abfrage!', [Durchläufe, (Zeit1 - Zeit2), ((Zeit1 - Zeit2) / Durchläufe)]));
end;