2 Word zu einer Single

[guinnes]

Oder als VariantenRecord :

Delphi-Quellcode:

Type
  TWordSingle = Record
    case Integer of
      1  : (Words : Array[0..1] of Word);
      2  : (SingleValue : Single);
  end;
....

WordSingle.Words[0] := Word1;
WordSingle.Words[1] := Word2;
Result := WordSingle.SingleValue;