|
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer ;
f : Single ;
begin
i := $3D75C28F ;
f := pSingle(@i)^ ;
Edit1.Text := FloatToStr(f) ;
end;
위 델파이 예제를 보면 4byte Hex값을 float값으로 변환하는 부분입니다
3D 75 C2 8F <== Hex값
위 값을 변환하면 0.0599999986588955 란 값이 나온다고 합니다.
근데 제가 델파이를 몰라서... 저걸 빌더로 바꿔주심 감사하겠습니다. (__) 꾸벅~
|