Mehrere Textdateien aus Opendialog heraus ausführen

[illbytes]

Hallo,

ich habe das CloseFile(Datei); mal ein End nach oben verschoben Resultat es wird nur noch ein Zeilenfragment eingelesen.

Ist doch richtig das ich der Variablen Datei die Files[j] des OpenDialog1 zuweise?

Delphi-Quellcode:

if OpenDialog1.Execute then
     for j := 0 to opendialog1.Files.Count-1 do
     begin
       AssignFile(Datei, OpenDialog1.Files[j]);
    {$I-}
       .
       .

und wenn ich dann CloseFile(Datei) aufrufe somit implizit auch die Files[j] des OpenDialog1 geschlossen werden.

Delphi-Quellcode:

 end;
       Reihe:=Reihe+1;
       Edit1.Text:=IntToStr(Reihe);
       CloseFile(Datei);
end;
end;

ich probier noch etwas rum das CloseFile(Datei)Kommando im Quelltext zu verschieben.

Ansonsten weiss ich nicht wie ich sehen kann ob die Datei offen oder geschlossen ist.

hab schon länger an dem Problem gefummelt. Aber ohne Erfolg. :-(