var
f:Single;
begin
f:=350.0000;
edt1.Text := (IntToHex(PInteger(@f)^,8));
end;
转载于:https://www.cnblogs.com/jxgxy/archive/2008/11/27/1342268.html
var
f:Single;
begin
f:=350.0000;
edt1.Text := (IntToHex(PInteger(@f)^,8));
end;
转载于:https://www.cnblogs.com/jxgxy/archive/2008/11/27/1342268.html