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