当前位置：首页 → 问答吧 → 单个输出char数组的值有值，转为pchar输出为空

单个输出char数组的值有值，转为pchar输出为空

时间：2011-12-13

来源：互联网

procedure Tform1.encode();
var
i:integer;
j:integer;
begin
//url解密 (加密格式:将0-9转换为a-j) 解密时将a-j转换为0-9
SetLength( arrChar , length(urlConfig.text)) ;
for i:=0 to length(urlConfig.text)-1 do
begin
for j:=0 to 9 do
begin
if urlConfig.text[i]=num[j] then
begin
arrChar[i]:=chr(j);
break;
end;
end;
arrChar[i]:=urlConfig.text[i];
//showmessage(arrChar[i]);
end;
//res := Copy(PChar(@arrChar[0]), 1, Length(arrChar));

showmessage(pChar(@arrChar[0]));
end;

作者: laiwenti 发布时间: 2011-12-13

大哥们来看看啊

作者: laiwenti 发布时间: 2011-12-13

这里没人来啊、、、、、、、、、啊

作者: laiwenti 发布时间: 2011-12-13

j 是 0..9
chr(j) 就是 0..9 的ASCII码，并不是a..j

作者: chhrsas 发布时间: 2011-12-13

引用 3 楼 chhrsas 的回复:

j 是 0..9
chr(j) 就是 0..9 的ASCII码，并不是a..j

那么要怎样写呢直接写肯定是j肯定是不行的

还有最后输出的是空的是为什么啊

作者: laiwenti 发布时间: 2011-12-13

var//全局变量
urlConfig:TStringlist;
num: array[0..9] of string = ('a','b','c','d','e','f','g','h','i','j');
arrChar: array of Char;
res:string;

作者: laiwenti 发布时间: 2011-12-13