如何把文件列表显示在ListBox1中！

Question

请教：　　Delphi中我用OpenDialog，打开多个文件，如何把文件列表显示在ListBox1中！    我用:AssignFile(OpenDialog1.files)!显示为乱码？

Answer 1

用win3.1里面的DirectoryListBox控件

Answer 2

for i := 0 to opendialog1.files.count -1 do
  listbox1.items.add(opendialog1.files.string[i]); 

Answer 3

for i := 0 to opendialog1.files.count -1 do
begin
  //忽略重复
  if boolean(listbox1.Items.IndexOf(opendialog1.files[i])+1) then
    listbox1.items.add(opendialog1.files[i]);
end;

Answer 4

新建一个Application,加上一个Button一个ListBox一个OpenDialog,
把OpenDialog的Option -> ofAllowMultiSelect  设True
在Button的OnClick事件中写:
procedure TForm1.Button1Click(Sender: TObject);
begin
 if OpenDialog1.Execute  then
 begin
   ListBox1.Clear;
   ListBox1.Items:=OpenDialog1.Files;
 end;
end;
用这种方法吧！