列表

Question

if OpenDialog1.Execute then
  ListBox1.Items.Assign(OpenDialog1.Files);

Answer 1

if OpenDialog1.Execute then
begin
  ListBox1.Items.Clear();  
  ListBox1.Items.Assign(OpenDialog1.Files);
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
   i:integer;
begin
  if  OpenDialog1.Execute  then
  begin
      ListBox1.Items.Clear();
      for i:=0 to opendialog1.Files.Count-1 do
      begin
        listbox1.Items.Add(extractfilename(OpenDialog1.Files.Strings[i]));
      end;
  end;
end;

Answer 3

opendialog的options中ofallowmutliselect=true

Answer 4

首先
opendialog的options中ofallowmutliselect=true
 
  if  OpenDialog1.Execute  then
  begin
     listBox1.Items.Assign(OpenDialog1.Files);
  end; 
或 
  procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
  with opendialog1 do
    begin
      if Execute then
        begin
          for  i:=0  to  Files.Count-1  do
              begin
                  listbox1.Items.Add(extractfilename(Files.Strings[i]));
              end;
        end;
    end;
end;