Text File Einlesen und als Datenbank Datei ausgeben

[Andidreas]

Zitat von marabu:

Ein kleiner Fehler: der Dateityp sollte TextFile oder Text sein, nicht file of Text.

Grüße vom marabu

danke das wars, mit dem dateityp textfile gehts

Delphi-Quellcode:

procedure TMain_Form.bitbtn_createClick(Sender: TObject);

var

File_ZPDM : TextFile;
Row_S     : String;
Row_R     : TZPDM_Record;
i         : integer;

begin

  ListBox_Msg.Items.Add('LOGPFL wird erstellt...');
  bitbtn_exit.Enabled := False;

  i := 2;

  {$I-}
  AssignFile(File_ZPDM,'..\SAP_File\ZPDMMCIDL_DEY1_20060130.TXT');
  //Reset(File_ZPDM,i);
  SetLength(Row_S,261);
  ReadLn(File_ZPDM,Row_S);
      If IOResult <> 0 Then
      ShowMessage('Einlesen der Textzeile ist Fehlgeschlagen')
    Else
      AddLOGPFL();
  CloseFile(File_ZPDM);
  {$I+}

end;

@klaus01
die fehlermeldungen kamen bei
File_ZPDM : File of Text;
und
ReadLn(File_ZPDM,Row_S);

aber jetzt wenn
File_ZPDM : TextFile;
kommt kein Fehler mehr