Text File Einlesen und als Datenbank Datei ausgeben

[Klaus01]

Delphi-Quellcode:

procedure TMain_Form.bitbtn_createClick(Sender: TObject); 

var 

File_ZPDM : TextFile;  // geändert :o(
Row_S     : String; 
Row_R     : TZPDM_Record; 
i         : integer; 

begin 

  ListBox_Msg.Items.Add('DB-Datei wird erstellt...'); 
  bitbtn_exit.Enabled := False; 

  i := 2; 

  {$I-} 
  AssignFile(File_ZPDM,'..\TXT_File\Datei.TXT'); 

  //Reset(File_ZPDM,i); 

  Reset(File_ZPDM);

  //SetLength(Row_S,261); 
  //ReadLn(File_ZPDM,Row_S,261); 

    while not eof(File_ZPDM) DO
      begin
        ReadLn(File_ZPDM,Row_S);

        If IOResult <> 0 Then 
          ShowMessage('Einlesen der Textzeile ist Fehlgeschlagen') 
        Else 
          AddDBFile(); // vielleicht ist ja auch hier der Fehler?
     end;

  CloseFile(File_ZPDM); 
  {$I+} 

end;

und da ist ein Fehler drin?

Grüße
Klaus