Question

求一段delphi字符串转换成ascii码的源代码

字符串中包括 a~z ，A~Z, 0~9，
请将字符串中的每一位数字或字母转换成ascii码，
然后再将每一位转换好的ascii码乘以2，再次转换成ascii码，
比较麻烦，数据库中的用户表里的密码就是这样转换的。
我要做一个登陆窗体，在password.text输入完密码之后，必须经过这样的转换才能与数据库密码相符。
举个例子：比如说我的真实密码是999999，经过两次转换之后，我数据库中的密码就变成了rrrrrr。 转换方法就是9的ascii码是57,用57*2=114，114的ascii码是r。
新手初探delphi，请尽量写详细一些，谢谢

Answer 1

var
s : string;
i : integer;
begin
s := '999999';
Result := '';
for i:=1 to length(s) do
begin
Result := Result + chr(Ord(s[i])*2);
end;

Answer 2

利用好chr和ord