为什么打开和保存对话框不显示与所选过滤器匹配的文件?

ram*_*omd 2 delphi filter topendialog tsavedialog

我希望我的打开和保存对话框显示XML文件.我有这个定义:

// The save dialog
dlg := TSaveDialog.Create(nil);
dlg.Options := [ofOverwritePrompt];
dlg.Title := 'Seleccione la ubicación del archivo';
dlg.Filter := 'Xml | *.xml | Todo | *.*';
dlg.DefaultExt := 'xml';
dlg.Execute();
// The open dialog
dlg := TOpenDialog.Create(self);
dlg.Title := 'Seleccione la ubicación del archivo';
dlg.Filter := 'Xml | *.xml | Todo | *.*';
dlg.DefaultExt := 'xml';
dlg.Execute();
Run Code Online (Sandbox Code Playgroud)

但它不显示XML文件.要在路径中显示任何XML文件,我需要选择"Todo"(*.*)过滤器.选择XML过滤器时为什么不显示文件?

Ser*_*yuz 7

删除扩展名周围的空格.该对话框正在尝试过滤"*.xml "文件,但没有.有关示例,请参阅文档.