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))^);