delphi - TSaveDialog 和具有相同扩展名的 2 种格式

Question

在 TSaveDialog 中我添加了两种具有相同扩展名的格式:

Format A|*.form
Format B|*.form
Format C|*.diff

现在我想确定用户选择的格式:

var Ext: String;
begin
  if not SaveDialog1.Execute then Exit;

  Ext := LowerCase(ExtractFileExt(SaveDialog1.FileName));

这样我就可以区分“格式 B”和“格式 C”，但无法区分“格式 A”和“格式 B”。

Answer 1

使用FilterIndex属性来标识在操作对话框时选择了哪个过滤器。