Probleme mit dem Auslesen einer Textdatei (readln)

[MisterNiceGuy]

Hi, ich habe folgenden QT und will damit erreichen, dass aus einer Textdatei bestimmte Werte ausgelesen werden.

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

Die erste Zeile in der Datei gibt den Index an, wieviele Zeilen folgen werden. Die folgenden Zeilen geben Pfadnamen an.

Leider bekomme ich jetzt immer eine Fehlermeldung an der markierten Stelle!
Bitte schaut euch das mal an, danke!!

[MrSpock]

Hallo MisterNiceGuy,

welche Fehlermeldung bekommst du denn? Existiert die Datei auch? Welchen Typ hat datei?

[MisterNiceGuy]

Siehe Anhang! Datei existiert und ist vom Typ *.txt

Datei ist auch nochmal angehängt!

[MrSpock]

Hallo MisterNiceGuy,

hast du die Berechtigung auf das Verzeichnis zuzugreifen? Wie ist datei deklariert, als TextFile?

[teebee]

E/A-Fehler 104 heisst, die Datei ist nicht geöffnet:

Zitat:

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... :wink:
Das gehört aus der While-Schleife raus,

Gruß, teebee