Mehrere Dateien auslesen?

[DeddyH]

Delphi-Quellcode:

procedure TForm1.auswhlen1Click(Sender: TObject);
var i:integer;
begin
OpenDialog1.Execute;
SetLength(FileNames, OpenDialog1.Files.Count);
SetLength(FileDate, OpenDialog1.Files.Count); //dieses Array fehlte
for i := Low(FileNames) to High(FileNames) do
  begin
        filenames[i] := opendialog1.Files.Strings[i];
        auslesen(i);
  end;
end;