die Variante mit dem varianten Record ist (meiner Meinung nach) die beste. Eine weitere Variante wäre mit Pointern:
Delphi-Quellcode:
var
lDeinSingle: Single;
begin
PByte(Cardinal(@lDeinSingle) + 0)^ := Byte4;
PByte(Cardinal(@lDeinSingle) + 1)^ := Byte3;
PByte(Cardinal(@lDeinSingle) + 3)^ := Byte2;
PByte(Cardinal(@lDeinSingle) + 4)^ := Byte1;