Rechengeschwindigkeit abhängig von Datentyp

**Neobiota**

Hallo Forum,
ich schreibe zurzeit eine Facharbeit in Informatik. Darin beschäftige ich mich mit Quellcode-Optimierung. Als praktisches Beispiel hab ich nun ein Programm geschrieben, dass die Abhängigkeit der Datentyp- Wahl von der Rechengeschwindigkeit untersucht.
Einmal rechne ich mit Byte-Variablen und einmal mit Integer-Variablen. Ich wollte nun eigentlich auf das Fazit kommen, dass es wichtig einen angemessenen Speicherbereich zu wählen, bei der Ausführung stelle ich jedoch fest, dass die Rechnung mit den Byte-Variablen 3,5 Sekunden dauert und die Integer-Rechnung nur 2.
Kann mir jemand diese Verhalten erklären? Kommt mir da Delphi vielleicht mit irgendwelchen eigenen Optimierungen in die Quere?
In dem Beispiel geht es nur um die Rechengeschwindigkeit.

Ich habe Implementations-Teil mal dran gehangen:

markieren

Code:

			var

  byte1, byte2, bytesumme : Byte;

  integer1, integer2, integersumme : Integer;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

  anfang, ende : Integer;

  i : integer;

begin

  // Anfangszeit ermitteln und ins Log eintragen

  Memo1.Lines.Add('Rechnungsversuch: Byte');

  anfang := GetTickCount;

  Memo1.Lines.Add('Anfang: ' + IntToStr(anfang) + 'ms');

  for i := 0 to 2147483647 do

    begin

      bytesumme := byte1 + byte2;

      bytesumme := 0; //Ergebnis zurücksetzen

    end;

  //Endzeit und Differenz ermitteln

  ende := GetTickCount;

  Memo1.Lines.Add('Ende: ' + IntToStr(ende) + 'ms');

  Memo1.Lines.Add(IntToStr(ende - anfang) + 'ms');

  Memo1.Lines.Add(''); //Leerzeile einfügen

end;

procedure TForm1.Button2Click(Sender: TObject);

var

  anfang, ende : Integer;

  i : integer;

begin

  // Anfangszeit ermitteln und ins Log eintragen

  Memo1.Lines.Add('Rechnungsversuch: Integer');

  anfang := GetTickCount;

  Memo1.Lines.Add('Anfang: ' + IntToStr(anfang) + 'ms');

  for i := 0 to 2147483647 do

    begin

      integersumme := integer1 + integer2;

      integersumme := 0; //Ergebnis zurücksetzen

    end;

  //Endzeit und Differenz ermitteln

  ende := GetTickCount;

  Memo1.Lines.Add('Ende: ' + IntToStr(ende) + 'ms');

  Memo1.Lines.Add(IntToStr(ende - anfang) + 'ms');

  Memo1.Lines.Add(''); //Leerzeile einfügen

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  //Zahlenwerte festlegen

  byte1 := 64;

  byte2 := 32;

  integer1 := 64;

  integer2 := 32;

end;

Rechengeschwindigkeit abhängig von Datentyp

Rechengeschwindigkeit abhängig von Datentyp

Forumregeln