FileOpen und EOF

[Pseudemys Nelsoni]

DANKE :)

ich wusste garnicht das AssignFile und co part von "System" sind...kommt für mein "api-prog" gut :mrgreen:

Danke auch dir Kernel32 :zwinker:

[Nalincah]

Hab da noch ein Problem:

Delphi-Quellcode:

function Import_FiletoDB(const Dataset:TADODataSet;Filename,Trennzeichen:string):Boolean;
var
  i,Count : Integer;
  s : string;
  f : TextFile;
  Titel : TStrings;
begin
  if not fileexists(FileName) then
  begin
    ShowMessage('Konnte Datei ' + QuotedStr(Filename) + ' nicht finden');
    Exit;
  end;
  AssignFile(f,Filename);
  Reset(f);

Da krieg ich bei "Reset(f)" ein "E/A-Fehler 123".

[Chewie]

Zitat:

123:
The filename, directory name, or volume label syntax is incorrect.

[mytar]

Bei TextFile müsste man glaub ich Append statt Reset verwenden.

Mytar

[Nalincah]

Mein Fehler. Der übergebene Filename war "*.txt". Habs falsch übergeben :wall: :duck: :wall:

[Brüggendiek]

Hallo!

Zitat:

Zitat von mytar

Bei TextFile müsste man glaub ich Append statt Reset verwenden.

Die einzelnen Funktionen bei Text-Dateien:
Reset: Öffnen zum Lesen (Datei muß vorhanden sein),
Rewrite: Öffnen zum Schreiben (neue Datei bzw. alter Inhalt geht verloren),
Append: Öffnen zum Anhängen neuer Daten.

Bei Textdateien kann man nämlich nicht wahlfrei zugreifen.

Wenn die Datei existiert und gelesen werden soll, ist Reset schon richtig.

Gruß

Dietmar Brüggendiek