Einzelnen Beitrag anzeigen

teebee

Registriert seit: 17. Jan 2003
Ort: Köln
460 Beiträge
 
Delphi 6 Professional
 
#5

Re: Probleme mit dem Auslesen einer Textdatei (readln)

  Alt 24. Okt 2004, 21:53
E/A-Fehler 104 heisst, die Datei ist nicht geöffnet:
Zitat von MisterNiceGuy:
Delphi-Quellcode:
if opendialog2.Execute then
  begin
    j:=0;
    assignfile(datei,opendialog2.FileName);
    reset(datei);
    while not eof(datei) do <= FEHLER!
      begin
        if j=0 then readln(datei, datei_platz)
        else begin
          readln(datei, dateien[j-1]);
          j:=j+1;
        end;
      closefile(datei); // <- ist fälschlicherweise in der While-Schleife
  end;
end;
Schau Dir mal genau an, wo Du das CloseFile reingepackt hast...
Das gehört aus der While-Schleife raus,

Gruß, teebee
  Mit Zitat antworten Zitat