原字符转换成加密字符串

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