Text File Einlesen und als Datenbank Datei ausgeben

**Andidreas**

hi,

ich brauch mal wieder eure hilfe...

über ein Windows Script hol ich mir von einem ftp Server ein .txt file runter...
diese .txt file muss ich anschließend als eine datenbankt datei ausgeben...

ich hab jetzt leier ein paar probleme beim einlesen des text files, vielleicht kann mir hierbei jemand helfen...

hier wäre mal die komplette procedure:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TMain_Form.bitbtn_createClick(Sender: TObject);

var

File_ZPDM : File;

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);

  SetLength(Row_S,261);

  ReadLn(File_ZPDM,Row_S,261);

    If IOResult <> 0 Then

      ShowMessage('Einlesen der Textzeile ist Fehlgeschlagen')

    Else

      AddDBFile();

  CloseFile(File_ZPDM);

  {$I+}

end;

bei meinem readln bekomm ich immer einen fehler, weiss vielleicht jemand warum??? bzw. geht das überhaupt mit readln eine einzelne zeile meines .txt files einzulesen???

ich hoffe mir kann jemand helfen

Text File Einlesen und als Datenbank Datei ausgeben

Text File Einlesen und als Datenbank Datei ausgeben

Forumregeln