在 TSaveDialog 中,我添加了 2 种具有相同扩展名的格式:
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”。