读文本到数据库,请帮我看一下代码好吗!

Question

机构  :666666                                 
 ----------------------------------------------
 客户号  客户名                                
 通讯地址                                      
 贷款帐号                                      
       期号                                    
 ----------------------------------------------
 22219533陈而岳                                
 浙江省慈溪市xxxxxxx办公室                     
 222222000100021834                            
           17                                  
 ----------------------------------------------
 22238740郑波                                  
 海门市xxxxxxxxx机电销售有限公司               
 403036000100026455                            
           15                                  
 ----------------------------------------------
 22247409杨林桦                                
 上海市xxx路１０８号１３Ｈ座                   
 222222000100030115                            
           13                                  
           14                                  
 ----------------------------------------------
 客户小计  : 0003                              
 ----------------------------------------------
 合计 : 客户数  : 00003                        
 ----------------------------------------------
                                               
                                               
                                               
                                               
                                               
 机构  :666666                                 
 ----------------------------------------------
 客户号  客户名                                
 通讯地址                                      
 贷款帐号                                      
       期号                                    
 ----------------------------------------------
 22252831孙都蓬                                
 浙江苍南县xxxxx路1111号                       
 222222000100034373                            
           12                                  
 ----------------------------------------------
 22281950林望钢                                
 福建晋江市xxxxxxxxxxxx路２６号                
 222222000100059438                            
            5                                  
 ----------------------------------------------
 客户小计  : 0002                              
 ----------------------------------------------
 合计: 客户数  : 00002                         
 ----------------------------------------------
代码如下,没有循环
procedure TForm1.Button1Click(Sender: TObject);
var
  MyTextFile1: TextFile;
  isData: boolean;
  S: string[255];
  sxm, sTxadd, sDkzh, sQh, vTmp1, sTmp1, sTmp2, sTmp3: string;
begin
  AssignFile(MyTextFile1, 'E:\MyProjects\新建文件夹\CCRLD008.TXT');
  Reset(MyTextFile1);
  isData := False;     // 还不是有用数据
  while not Eof(MyTextFile1) do 
  begin
    Readln(MyTextFile1, S);
　　if Pos('期号', S) > 0 then
    begin
      isData := True;  // 有用数据开始
      Readln(MyTextFile1, S);   // 读取 ---------
    end;
    if not isData then
      continue;        // 若还不是有用数据，则继续读取下一行    if Pos('-', S) <= 0 then
    begin
      ShowMessage('数据有错！');
      Close(MyTextFile1);
      Exit;
    end;    Readln(MyTextFile1, sTmp1);
    if Pos('客户小计', S) > 0 then
      break;
    sTmp1 := Trim(sTmp1);
    sxm := copy(sTmp1, 8, Length(sTmp1));    Readln(MyTextFile1, sTmp1);
    sTxadd := Trim(sTmp1);    Readln(MyTextFile1, sTmp1);
    sDkzh := Trim(sTmp1);    Readln(MyTextFile1, sTmp1);
    sQh := Trim(sTmp1);    //入库
    Table2.insert;
    Table2.fieldbyname('qh').AsString := sQh;
    Table2.post;    //入库
    Table1.insert;
    Table1.fieldbyname('xm').AsString := sxm;
    Table1.fieldbyname('Txadd').AsString := sTxadd;
    Table1.fieldbyname('Dkzh').AsString := sDkzh;
    Table1.post; end;  
end;
end.

Answer 1

这段代码,没有循环,只导入了陈而岳,郑波,杨林桦