怎样把十六进制数转换成字符串？？（高分100，急........)

lgming21 2003-08-19 09:41:45

...全文

54 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