Delphi OpenDialog1 文件过滤及多选实现

OpenDialog1.Filter:='文本文件(*.txt)|*.txt';   //文本文件(*.txt) 显示在文件类型里，中间用|隔开，|后面代表过滤exe以外的其他类型文件
OpenDialog1.Filter:='文本文件(*.txt)|*.txt|EXECL文件(*.xls)|*.xls';
OpenDialog1.Filter:='支持文件类型(*.png;*.jpg)|*.png;*.jpg';  //显示2个以上的类型，中间用;隔开

ofAllowMultiSelect := True;   //多选文件开启   选择options属性，将其中的ofallowmultiselect属性设为true 

//循环取得每个单个的文件名
var 
  Lists:TStrings; 
  i:integer; 
begin 
  if OpenDialog1.Execute then 
  begin 
    Lists:=OpenDialog1.Files ;   //获得所有文件名 
    for i :=0 to Lists.count do 
    Listbox1.items.add(Lists)   //lists 单个文件名 
  end;
end;