MultiSelect beim OpenDialog und Listbox ?

[Keldorn]

Hallo

stichwörter: opendialog.files, extractfilename und changefileext

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
Var I:integer;
begin
  if OpenDialog1.execute then
    begin
      for i:=0 to OpenDialog1.files.Count-1 do
        begin
          //alle ausgewählten dateien in Listbox
          ListBox1.Items.add(OpenDialog1.Files.Strings[i]);
          //nur dateiname in listbox
          ListBox2.Items.add( ChangeFileExt(
                              extractfilename(OpenDialog1.Files.Strings[i]),''));
        end;
    end;
end;

bzw wenn du keine Schleife für den ersten Fall nehmen wills
listbox1.Items.Assign(OpenDialog1.Files); Mfg Frank