Integer wert als Float interpretieren

[helgew]

ich biete mapping auf eine Longvariable.

Delphi-Quellcode:

procedure TDT30xRPM.do_Done(var MSG : TMessage);
var
  buf: longint;
  f: single absolute buf;
begin
  buf := msg.LParam;
  fRPM:= f;
end;

alternativ gibts eine Wurst von typecasts (durch den Umweg über Pointer streift man die Typisierung ab):

fRPM := Single(Pointer(Addr(msg.lParam))^);