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?
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]