OpenDialog --> mehere Dateien --> Dateinamen

[Dax]

Delphi-Quellcode:

if OpenDialog1.Execute then
    begin
       dateien              := OpenDialog1.Files;

       with OpenDialog1.Files do
       for I := 0 to Count - 1 do
       begin
            showmessage(OpenDialog1.Files[I]);
       end;

       //showmessage(dateien.commatext);
    end;