【结贴】OpenDialog 过滤**

zhdkelly

用OpenDialog怎么过滤出某一类文件，如过滤出xls文件，我的代码是：lOpenDialog.Filter:='*.xls'; 可还是过滤不出来，即对话框打开时还能看到其它类型的文件.这该怎么处理？

shangxy

procedure TMainForm.Button1Click(Sender: TObject);
var
   OpenDialog:TOpenDialog;
begin
    try
      OpenDialog:= TOpenDialog.Create(nil);
      OpenDialog.Filter:= '*.xls|*.XLS';
      if OpenDialog.Execute then
      begin
         if OpenDialog.FileName<>'' then
         begin
//
         end;
      end;
    finally
        OpenDialog.Free;
    end;
end;

shangxy

楼主，结贴了，有问题开新帖吧