怎样把十六进制数转换成字符串??(高分100,急........)

lgming21 2003-08-19 09:41:45
怎样把十六进制数转换成字符串??(高分100,急........)
...全文
51 16 打赏 收藏 转发到动态 举报
写回复
用AI写文章
16 条回复
切换为时间正序
请发表友善的回复…
发表回复
CDSoftwareWj 2003-08-19
  • 打赏
  • 举报
回复
不会吧 ^^!
江山易改 2003-08-19
  • 打赏
  • 举报
回复
Format('%x',[125]);
sincere1314 2003-08-19
  • 打赏
  • 举报
回复
CDSoftwareWj(95927) 的代码通不过呀,提示:invalid integer
li_zhifu 2003-08-19
  • 打赏
  • 举报
回复
所以,可以这样
IntToStr($ABCD,0);
li_zhifu 2003-08-19
  • 打赏
  • 举报
回复
uses SysUtils;

Category

numeric formatting routines

function IntToHex(Value: Integer; Digits: Integer): string; overload;
function IntToHex(Value: Int64; Digits: Integer): string; overload;

Description

IntToHex converts a number into a string containing the number's hexadecimal (base 16) representation. Value is the number to convert. Digits indicates the minimum number of hexadecimal digits to return.
huayuxing 2003-08-19
  • 打赏
  • 举报
回复
Function MyHexToTen(SStr:String):String;
var
i:Integer;
TStr:String;
begin
for i:=1 to Length(SStr) div 2 do
TStr:=TStr+Chr(Strtoint('$'+Sstr[2*i-1]+Sstr[2*i]));

Result:=TStr;
end;
mingjunlee 2003-08-19
  • 打赏
  • 举报
回复
上面的,你同意啥?
你有自己的意见吗?
ft~~~~~~~~~~~``
gegangqiao 2003-08-19
  • 打赏
  • 举报
回复
其实转换十六进制的也得先把十六进制的转换成十进制先,要不你就把字符的ASC转换成十六进制也没问题。
fansnaf 2003-08-19
  • 打赏
  • 举报
回复
同意楼上的,
CDSoftwareWj 2003-08-19
  • 打赏
  • 举报
回复
function HexToStr(AHex: String): String;
var
I: Integer;
J: Byte;
R: String;
begin
J:= 0;
R:= '';
for I:=1 to (Length(AHex) div 2) do
begin
if (AHex[2 * I - 1] >= 'A') and (AHex[2 * I - 1] <= 'F') then
J:= J * 16 + (Byte(Char(AHex[2 * I - 1]))-55)
else
J:= J * 16 + StrToInt(AHex[2 * I - 1]);
if (AHex[2 * I] >= 'A') and (AHex[2 * I] <= 'F') then
J:= J * 16 + (Byte(Char(AHex[2 * I]))-55)
else
J:= J * 16 + StrToInt(AHex[2 * I]);
R:= R + Char(J);
end;
Result:= TrimRight(R);
end;
sduzjw 2003-08-19
  • 打赏
  • 举报
回复
format函数
vchoushen6 2003-08-19
  • 打赏
  • 举报
回复
format('%x',hexdata);
franne 2003-08-19
  • 打赏
  • 举报
回复
最终答案是什么呀?
CDSoftwareWj 2003-08-19
  • 打赏
  • 举报
回复
谢谢谢谢 li_zhifu(东北人) ^^!
hiflower 2003-08-19
  • 打赏
  • 举报
回复

IntToHex($ABCD,4);
li_zhifu 2003-08-19
  • 打赏
  • 举报
回复
To CDSoftwareWj(95927):
荣升猩猩了,恭喜恭喜

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧