字符串变量名为ss 是吧? 给你个例子
比如: ss:='Hello!'
function bcc(str:string):string;
var
c:string;
i:integer;
begin
for i:=1 to length(str) do
c:=c+chr( ord(copy(str,i,1)[1]) xor 124);
result:=c;
end;
结果: bcc(ss) 等于 4]
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024