HEX 실수 변환

HEX 실수 변환.zip

  Edit1.Text := IntToStr(D[0]);

  Edit2.Text := IntToStr(D[1]);

  H[0] := IntToHex(D[0],1);

  H[1] := IntToHex(D[1],1);

  Edit3.Text := H[0];

  Edit4.Text := H[1];

  Edit5.Text := H[1]+H[0];

  i := StrToInt('$'+H[1]+H[0]);

  Edit6.Text := IntToStr(i);

  f := pSingle(@i)^;

  Edit7.Text := FloatToStr(f);