去处数据库中的空格

                            
procedure   TForm1.Button1Click(Sender:   TObject);   
  var  
  i:integer;  
  begin  
  ADOTable1.First;  
   
  while   not   ADOTable1.Eof   do  
  begin  
  ADOTable2.Append;  
   
  for   i:=0   to   ADOTable1.FieldCount-1   do                                                     //for  
  begin  
      if   NOT   (adotable1.Fields[i].Value   =   '')   then                                             //if  
              begin  
              adotable2.Fields[i].Value:=trim(adotable1.Fields[i].AsString);//有错误  
              end;                                                                                                         //if  
  end;                                                                                                                   //for  
   
  ADOTable2.Post;  
  adotable1.Next;  
  end;  
   
  showmessage('到出成功');  
  end;  
  报错:could   not   convert   variant   of   type(null)   into   type(string),为什么,如何处理?

查看回复