MultiSelect beim OpenDialog und Listbox ?

[BorlanDelphiUser]

Hallo,
hab da mal wieder ein Problem. Ich möchte mehrere Dateien mit einem OpenDialog laden und alle Dateien mit Pfadangaben in einer Listbox auflisten. Hab schon im OpenDialog Multiselect auf TRUE gestellt.

Was auch noch nicht schlecht wäre aber nich unbedingt nötig ist, in einer zweiten Listbox alle Dateien ohne Pfad und Endung aufzulisten.

Danke euch schonmal im vorraus

[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

[chris]

hi,

versuch es so:

Delphi-Quellcode:

var
  i: integer;
  temp: string;
begin
  with opendialog1 do
    if execute then
    begin
      for i := 0 to files.count - 1 do
      begin
        temp := files.strings[i];
        listbox1.items.add(temp);
        listbox2.items.add(changefileext(extractfilename(temp), ''))
      end
    end

in der OH wärst du aber auch fündig geworden!