在delphi中，怎么把浮點型轉4位元組16進制
uj5u.com熱心網友回復：
先問一下，你保證4位元組就能放得下浮點型（8位元組）？uj5u.com熱心網友回復：
單精度不是只有4個位元組，雙精度的才是8位元組？uj5u.com熱心網友回復：
varB : array [0..3] of Byte;
n : Single;
begin
n := 1283123.12;
PSingle(@n)^ := n; //已經轉好了，直接轉為
或者 ShowMessage(IntToHex(PInteger(@n)^ , 8)); //這樣也行，融會貫通即可
end;
uj5u.com熱心網友回復：
PSingle@B)^ := n;uj5u.com熱心網友回復：
4位元組，每字$00~$FF。Result:=format('%.8x',[floor(f)]);uj5u.com熱心網友回復：
TypeTSingleRec = record
case Integer of
0:(Value:Single);
1:(bLL,bLH,bHL,bHH:Byte);
end;
var
fSingleRec:TSingleRec;
strtp:string;
begin
fSingleRec.Value := 1323.535;
strtp :=
inttohex(fSingleRec.bLL,2)+' '+
inttohex(fSingleRec.bLH,2)+' '+
inttohex(fSingleRec.bHL,2)+' '+
inttohex(fSingleRec.bHH,2)+' ';
uj5u.com熱心網友回復：
但是位數多的話還是丟了很多。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/121189.html
標籤：語言基礎/算法/系統設計
上一篇：急：Delphi7中呼叫SQL動態輪詢查詢資料庫導致虛擬記憶體激增，最終堆疊溢位，如何解決？
下一篇：eclipse打不開了