Question

delphi7怎么把字符串转十六进制

我把字符串转化成了十六进制，
function strToHexStr(str:string):string;
var
c:char;
ss:string;
i:integer;
begin
while str<>'' do begin
c:=str[1];
ss:=ss+format('%0x',[ord(c)]);
delete(str,1,1);
end;
strtohexStr:= ss;
end;
这个是找的程序，但是如0A，出来显示的为A把，0省略了，很不方便，我想出来为0A，怎么办啊？求大神

Answer 1

format用错了，你要写做

ss:=ss+format('%.2x ',[ord(c)]);

追问

你好，谢谢哈，我还有个问题啊，我要做个运算为

我要有2的64次方那么大的数，做运算，咋个办呢、。我看最大就long  word 为2的32次方啊

追答

没用过这种数据，int64有8字节，但也只是2的63次数，你或许可以试一下Variant类型，它有16字节，如果还是不行或者为了保险，可以用string模拟手动运算的过程来实现任意的超大数字的运算了。

Answer 2

Inttohex 即可

var i : integer;
hex15: string;

i:=15;
hex15 = IntToHex(i,8);