Question

(delphi) copy() 函数 在线等 ~~~~

Edit1.Text:= Edit1.Text + char(Ord(copy(pass,i,1))-1) ;

char(Ord(copy(pass,i,1))-1) 这里为什么不行？
请问应该怎样写

就是想把 Edit3.Text 中的字符串 转成ASII码 再都减1
例如 BCD
结果是 ABC

Answer 1

不能用copy，copy的结果是字符串
而ord要求参数为char
Edit1.Text:=Edit1.Text+char(ord(pass[i])-1);
这样就OK

你的程序代码如下

var
i:Integer;
begin
for i:=1 to length(edit3.text) do
begin
Edit1.Text:=Edit1.Text+char(ord(edit3.Text[i])-1);
end;
end;