delphi如何把一个整数转化为4个十六进制字节？
var
s:string;
len:Integer;
AData:TBytes;
begin
s:=IntToHex(149259,6);//返回6位字符串
len := length(s)div2;
Setlength(AData,len);
HextoBin(pchar(s),@AData[0],len);
end;
var
s:string;
len:Integer;
AData:TBytes;
begin
s:=IntToHex(149259,6);//返回6位字符串
len := length(s)div2;
Setlength(AData,len);
HextoBin(pchar(s),@AData[0],len);
end;
