Mehrere Textdateien aus Opendialog heraus ausführen

**illbytes**

Hallo miteinander,

weiss vielleicht jemand, wie man unter Delphi 3 mehrere Dateien aus Dem OpenDialog heraus der Reihe nach ausführen kann?

Also ich habe im Objektinspektor unter Eigenschaften ->Options -> ofAllowMultiSelect auf True gesetzt.

Im Programm kann ich nun mehrere Files selektieren und diese Werden im Open Dialog unter Dateiname: in "Filename1.txt""Filename2.txt" usw. angezeigt.

Nur bei Programmausführung wird nur die erste Datei Ausgeführt. :-((

-- Was muss ich noch da reinprogrammieren, das alle selektierten Dateien in dem Verzeichnis bearbeitet werden?

-- Was muss ich noch da reinprogrammieren, das alle Dateien aus dem ausgewählten Verzeichnis bearbeitet werden?

-- Gibt es ne Grenze wenn zu viele Dateien im Verzeichnis sind und wie muss man dann vorgehen?

zusammenfalten · markieren

Delphi-Quellcode:

			 procedure TForm1.BitBtn1Click(Sender: TObject);

var

  Datei : Textfile;

  Zeilenpuffer,Filename : String;

begin

  if OpenDialog1.Execute then

   AssignFile(Datei, Opendialog1.Filename);

    {$I-}

    Reset(Datei);

    {$I+}

     if IOResult <> 0 then

      begin

        MessageDlg('Fehler beim Zugriff auf die Datei', mtWarning, [mbOk], 0);

        exit;

        halt

      end

      else

       MessageDlg('Dateigröße in Bytes: ' + IntToStr(FileSize(Datei)),

       mtInformation, [mbOk], 0);

       Memo1.Lines.Clear;

         while not EOF(Datei)do

           Begin

             Readln( Datei, Zeilenpuffer);

             Memo1.Lines.Add(Zeilenpuffer);

       end;

       Reihe:=Reihe+1;

       Edit1.Text:=IntToStr(Reihe); 

       CloseFile(Datei);

end;

[edit=Luckie]Delphi-Tag korrigiert. Mfg, Luckie[/edit]

Mehrere Textdateien aus Opendialog heraus ausführen

Mehrere Textdateien aus Opendialog heraus ausführen

Forumregeln