Single in Byte-Array konvertieren und umgekehrt

[Medium]

Nicht ganz. Es ist ja ein record, und das sollte man schon dazu schreiben
Noch ein "packed" dazu um Problemen mit Alignment von vorne herein aus dem Wege zu gehen, und die Deklaration des Arrays geht kürzer (ist aber technisch identisch):

Delphi-Quellcode:

type
  TSingleArray = packed array[sizeof(single)] of byte;
  TSingleByteAlias = record
  case boolean of
    true: (org: single);
    false: (arr: TSingleArray);
  end;