einzelne bytes in ein 4-byte int umwandeln

[Zacherl]

Zitat:

Zitat von p80286 (Beitrag 1364856)

muß das nicht

Delphi-Quellcode:

packed record

sein?
oder ist das bei varianten Records automatisch dabei?

Ja, sollte der Sicherheit halber

Delphi-Quellcode:

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:

Zitat von p80286 (Beitrag 1364842)

(:hi: Mavarik)

Thanx...

[JayZ]

Zitat:

Zitat von Neutral General (Beitrag 1364840)

Oder in einer Zeile ohne Records:

Delphi-Quellcode:

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:

Zitat von JayZ (Beitrag 1364988)

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 :D nur so aus interesse... gibts da auch ne möglichkeit mit shl und shr die nicht allzu komplex ist? :stupid:

[Uwe Raabe]

Zitat:

Zitat von JayZ (Beitrag 1364991)

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

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:

Zitat von JayZ (Beitrag 1364991)

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

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;