加密字符串换成原字符转

function mdtoeditstr(s:string; strkey:char ):string;//加密字符串换成原字符转
var
  str:string;         //定义两个字符串的昨临时变量
  str1:string;        //定义两个字符串的昨临时变量
  i:integer;          //循环加密变量
  j:integer;          //加密关键字
begin
  str1:=s;            //存储传入的字符串
  str:='';            //初始化转化后的字符串
  j:= integer(strkey);//将解密关键字转换成整数
  for  i:=1 to length(str1) do  //字符串的循环解密
  begin
    str:=str+char(integer(str1[i])-j);
  end;
  result := str;      //返回解密后的结果
end;