einzelne bytes in ein 4-byte int umwandeln

[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...

[JayZ]

Zitat von Neutral General:

Oder in einer Zeile ohne Records:

Int := (B1 shl 24) or (B2 shl 16) or (B3 shl 8) or B4;

Sorry das ich nochmal nachfrage aber gäbe es auch so einen einzeiler (pro byte) um das umgekehrte zu machen?

Also zb:

Delphi-Quellcode:

Int := $ABCDEF42;
byte1 := $AB; // get first byte from int
byte2 := $CD; // get 2nd byte from int
byte3 := $EF; // get 3rd byte from int
byte4 := $42; // get 4th byte from int

danke

[Uwe Raabe]

Zitat von JayZ:

Sorry das ich nochmal nachfrage aber gäbe es auch so einen einzeiler (pro byte) um das umgekehrte zu machen?

Delphi-Quellcode:

byte1 := LongRec(Value).Bytes[0];
byte2 := LongRec(Value).Bytes[1];
byte3 := LongRec(Value).Bytes[2];
byte4 := LongRec(Value).Bytes[3];

[JayZ]

geil danke! da werden mir ja ganz neue seiten von delphi gezeit nur so aus interesse... gibts da auch ne möglichkeit mit shl und shr die nicht allzu komplex ist?

[Uwe Raabe]

Zitat von JayZ:

geil danke! da werden mir ja ganz neue seiten von delphi gezeit nur so aus interesse... gibts da auch ne möglichkeit mit shl und shr die nicht allzu komplex ist?

Nee, nicht wirklich:

Delphi-Quellcode:

function GetByte(Index, Value: Integer): Byte;
var
  BitsToShift: Integer;
begin
  BitsToShift := (Index xor 3) shl 3;
  result := (Value and ($FF shl BitsToShift)) shr BitsToShift;
end;

[Zacherl]

Zitat von JayZ:

gibts da auch ne möglichkeit mit shl und shr die nicht allzu komplex ist?

Die nicht-generische Variante ist etwas verständlicher:

Delphi-Quellcode:

B1 := DW and $FF;
B2 := (DW shr 8) and $FF;
B3 := (DW shr 16) and $FF;
B4 := (DW shr 24) and $FF;