这些错误如何处理????????

Question

1)原编写的信息管理程序是没有问题的,但是后我经过了加密处理
字符串加密解密函数如下:
函数名：Encrypt //Decrypt
编译是没有问题,但是在录入数据是就出现这些错误
'0':is not a valid integer value.
2)第二个问题是,我的第一次运行程序时回校验数据库是否存在,
不存在则建立,以方便进行程序录入记录,但是问题是若进入程序
没有录入记录而是又退出,但是下次启动程序就是没有记录读取
所以就出提示错误如下:
list index out of bounds(-1)

Answer 1

再次声明一下
函数名：Encrypt //Decrypt
我输入记录:
//姓名  性别 年龄 语文  数学  政治
 赵一平  男   20  50    60    80 
//上行信息保存记录是成功的
而输入下次就出错了
//姓名  性别 年龄 语文  数学  政治
 赵一平  男   18  50    60    80 
 赵二平  男   19  50    60    80
只要是年龄是18或者19就出错
'0':is not a valid integer value. 

Answer 2

1.'0':is not a valid integer value. 这个错误估计lz在要打 零 的时候打成字母 “O”了
2.  超出范围，比如TList   ，TStringList   之类的。。lz仔细检查

Answer 3

下面是加解密函数体
function Encrypt(str:string):string; //加密字符串
var
  s : string[255];
  c : array[0..255] of Byte absolute s;
  i:Integer;
begin
  s:=str;
  For i:=1 to ord(s[0]) do
   c[i] := i XOr c[i];
  result:=s;
end;function Decrypt(str:string):string;  //解密字符串
var
  s : string[255];
  c : array[0..255] of Byte absolute s;
  i:Integer;
begin
  s:=str;
  For i:=1 to Length(s) do
  s[i] := chr(i XOr ord(s[i]));
  result:=s;
end;