通用数据库恢复程序（delphi+mysql调试通过）

procedure importtodb(strfile,strtable:string);  //strfile已经存在的“,”分隔符文本文件；strtable为数据库表（执行此过程前必须已经清空）
var
   m,i,startnum:integer;
   txtline:string;
   FilVar:textfile;

begin
if FileExists(strfile) then
   begin
      AssignFile(FilVar,strfile);
      Reset(FilVar);
      While not Eof(FilVar) Do
         Begin
            m:=0;
            Readln(FilVar,txtline);
            startnum:=1 ;
            datamod.ADOTable1.TableName:=strtable;
            datamod.ADOTable1.Active:=true;
            datamod.ADOTable1.Append;
            for i:=1 to length(txtline) do
               begin
                  if copy(txtline,i,1)=',' then
                     begin
                        datamod.ADOTable1.Fields[m].Value:=copy(txtline,startnum,i-startnum);
                        m:=m+1;
                        startnum:=i+1;
                     end;
               end;
            datamod.ADOTable1.Post;
         end;
      datamod.ADOConnection.Connected:=false;
      datamod.ADOTable1.TableName:='';
      datamod.ADOTable1.Active:=false;
      CloseFile(FilVar);
   end;
end;