einzelne bytes in ein 4-byte int umwandeln

[p80286]

oder so:

Delphi-Quellcode:

var 
  i : integer;
  b : Array [0..3] of Byte absolute i;

begin
  b[0]:=$AB;
  b[1]:=$CD;
  b[2]:=$EF;
  b[3]:=$42;
end;

( Mavarik)

Gruß
K-H

[Rollo62]

Die Frage die ich mir immer stelle ist: Was ist denn jetzt das Schnellste ?

DeddyHs und Mavariks Lösungen habe ich ja im Verdacht ganz gut zu sein.

Aber es könnte am Ende doch NeutralGeneral der Gewinner sein,
weil da der Compiler die Chance hat bis auf die Knochen zu optimieren.

Hat das schonmal mal einer vermessen ?

Rollo

[Neutral General]

Die Record-Varianten (und das absolute) sind wahrscheinlich am schnellsten weil da quasi gar nichts gerechnet wird.

[p80286]

Frage:
muß das nicht packed record sein?
oder ist das bei varianten Records automatisch dabei?

Gruß
K-H

[Zacherl]

Zitat von p80286:

muß das nicht packed record sein?
oder ist das bei varianten Records automatisch dabei?

Ja, sollte der Sicherheit halber packed sein, wobei in diesem Falle kein Padding und Aligning stattfinden sollte.

[t.roller]

Alles schon mal dagewesen...

[p80286]

das nennt man "Weitergabe des Wissens" und ist unsere Daseinsberechtigung.

Gruß
K-H

[t.roller]

Noch eine Lösung:

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
var
aByte   : Packed array[0..3] of Byte;
dwErgebnis  : DWord  absolute aByte;
begin
  //Einzelbyte eintragen
  aByte[0]  :=$10;
  aByte[1]  :=$20;
  aByte[2]  :=$30;
  aByte[3]  :=$40;
  //Ergebnis verwenden
  Label1.Caption:= IntToStr(dwErgebnis);
end;

[Mavarik]

Zitat von p80286:

( Mavarik)

Thanx...