Forum: Programmieren allgemein
by Uwe Raabe,
21. Mär 2017
Nee, nicht wirklich:
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;
Forum: Programmieren allgemein
by Uwe Raabe,
21. Mär 2017
byte1 := LongRec(Value).Bytes;
byte2 := LongRec(Value).Bytes;
byte3 := LongRec(Value).Bytes;
byte4 := LongRec(Value).Bytes;
Forum: Programmieren allgemein
by Uwe Raabe,
20. Mär 2017
Ähnlich dem, was DeddyH gezeigt hat, nur mit Bordmitteln:
var
Zahl: LongRec; { in Sysutils }
begin
Zahl.Bytes := $AB;
Zahl.Bytes := $CD;
Zahl.Bytes := $EF;
Zahl.Bytes := $42;
ShowMessage(Integer(Zahl).ToHexString(8));