Einzelnen Beitrag anzeigen

illbytes

Registriert seit: 22. Nov 2006
14 Beiträge
 
Delphi 3 Professional
 
#13

Re: Mehrere Textdateien aus Opendialog heraus ausführen

  Alt 27. Nov 2006, 16:55
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. :-(
  Mit Zitat antworten Zitat