请问如下代码要如何实现，主要是OPENDIALOG的特性

Question

 我现在想用opendialog组件获取一批文件， 我现在想用两个变量分别存取该组件获取来的文件名和路径， 然后再将文件名添加到列表框控件中去这中间这段代码该如何写，其实我主要是不知道opendialog组件的属性，

Answer 1

var
   i:integer;
begin
   opendialog1.options:=[ofallowmultiselect,offilemustexist];
   if opendialog1.execute then
     begin
        listbox1.clear;
        with opendialog1.files do
             for i:=0 to count-1 do
                 listbox1.items.add(string[i]);
     end;
   label1.caption:=extractfiledir(opendialog1.files[0]);
end;