OpenDialog和SaveDialog过滤器问题

Question

OpenDialog1.Filter := '*.xml';
  OpenDialog1.DefaultExt := '*.xml';
  OpenDialog1.FilterIndex := 0;
  if OpenDialog1.Execute then
  begin
     sOpenFile :=OpenDialog1.FileName;
  end
  else
  begin
    Exit;
  end;第一次用，用尽了所有办法，但过滤器没用，请问各位过滤器是否哪写错了？
还有保存时有没有属性能设置提示已经存在相同文件名的属性？怎么设。还是要自己判断写代码。

Answer 1

给你格例子，把扩展名改一下就可以了。
  comcontrols.SaveDialog1.Options:= comcontrols.SaveDialog1.Options+[ofoverwriteprompt];
  comcontrols.SaveDialog1.Filter:= 'Excel Files (*.xls)|*.XLS|所有文件 (*.*)|*.*';