Mehrere Dateien auslesen?

[marabu]

Besser du verwendest ein dynamisches Array. Du kannst dann auch mal weniger oder mehr als 10 Dateien auswählen und die Länge deines Arrays einfach anpassen.

Delphi-Quellcode:

var
  FileNames: array of string;

procedure TDemoForm.FileSelectItemClick(Sender: TObject);
var 
  i: Integer;
begin
  if OpenDialog.Execute then
  begin
    SetLength(FileNames, OpenDialog.Files.Count);
    for i := Low(FileNames) to High(FileNames) do
      FileNames[i] := OpenDialog.Files[i];
  end;
end;