高考问答角膜炎严重吗:(delphi) copy() 函数 在线等 ~~~~
来源：百度文库 编辑：高考问答 时间：2024/04/28 22:38:49
Edit1.Text:= Edit1.Text + char(Ord(copy(pass,i,1))-1) ;
char(Ord(copy(pass,i,1))-1) 这里为什么不行？
请问应该怎样写
就是想把 Edit3.Text 中的字符串 转成ASII码 再都减1
例如 BCD
结果是 ABC
char(Ord(copy(pass,i,1))-1) 这里为什么不行？
请问应该怎样写
就是想把 Edit3.Text 中的字符串 转成ASII码 再都减1
例如 BCD
结果是 ABC
不能用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;