Temperaturwert in Double umwandeln

[Uwe Raabe]

Delphi-Quellcode:

var
  data: Word;
  temp: Double;
begin
  data := $5005;
  temp := ShortInt(Lo(data)) + (Hi(data) shr 4)/16;
end;