einzelne bytes in ein 4-byte int umwandeln

Thema durchsuchen

Ansicht

Themen-Optionen

einzelne bytes in ein 4-byte int umwandeln

Ein Thema von JayZ · begonnen am 20. Mär 2017 · letzter Beitrag vom 23. Mär 2017

Vorheriger Beitrag

Nächster Beitrag

t.roller

(Gast)

n/a Beiträge

#14

AW: einzelne bytes in ein 4-byte int umwandeln

20. Mär 2017, 20:49

Noch eine Lösung:

zusammenfalten · markieren

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;