伦理界限是什么意思:(delphi) copy() 函数 在线等 ~~~~

来源：百度文库 编辑：神马品牌网 时间：2024/05/06 19:10:54
Edit1.Text:= Edit1.Text + char(Ord(copy(pass,i,1))-1) ;

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;

(delphi) copy() 函数 在线等 ~~~~ Delphi的常用函数 Delphi函数实用手册 DELPHI函数使用 delphi函数查询 delphi 怎么使用lg函数???? DELPHI关机函数是什么呢 delphi的高手们 Delphi的window API函数是什么？ 在DELPHI中如何调用API函数 delphi有谁知道里面的函数啊