我想实现一个简单的加密算法，从一个psw:string变量中存储原始的字符串数据，然后用Length(psw)得到字符长度，用一个循环，将每一个字母的ASCII码增加50，以实现最简单的加密，可是我是循环体中使用语句:psw[i]=psw[i] 50;报不兼容，请教各位谁知道怎么实现？谢谢

Check this one!

procedure TForm1.Button1Click(Sender: TObject);
var
  str,enstr:string;
  ch:char;
  len,i,ich:integer;
begin
   memo1.Clear;
   str:=edit1.Text;
   len:=length(str);
   for i :=0  to len  do
   begin
      ch:=str[i];
      ich:=ord(ch);
      ch:=chr(ich 50);
      enstr:=enstr ch;
   end;
   memo1.Lines.Add(str);
   memo1.Lines.Add(enstr);
end;

Best Regards, Rex Chiu

------
Best Regards,
Rex Chiu

要注意一點, 如果只是單純地加上50, 有些字元是顯示不出來的。