根据预定义的文件名过滤打开的对话框

Question

1. 问题1:我想筛选只显示特定文件名的打开对话框。文件名是在TEdit框中指定的。这是我的代码，但它仍然显示目录中的整个文件。 程序TForm1.ButtonLoad(发件人: TObject)； var openDialog: TOpenDialog；i: Integer；begin TFBusy(发送方)；openDialog := TOpenDialog.Create(self)；openDialog.Title :=‘所需的浏览文件“+ TEdit1.Text；openDialog.InitialDir := strMyDoc；openDialog.FileName := TEdit1.Text；openDialog.Filter := 'All file扩展名*.*’；如果没有，请尝试开始更新(‘浏览文件加载被取消’)；最后，对于I := 0到openDialog.Files.Count -1 do //i在这里使用文件结束；openDialog.Free；TFReady(发件人)；end；

虽然打开对话框上的文件名显示正确，但它仍然显示目录中的整个文件。

问题2：

我可以过滤带有特定前缀的文件吗？

我的文件名是花-3320，花-2230，等等。因此，我希望筛选打开的对话框，该对话框将只显示任何前缀为FLOWER的文件(忽略文件扩展名)。

最美好的祝愿，蜜蜂。

Answer 1

它显示所有文件，因为您明确地告诉了它：

openDialog.Filter := 'All file extension|*.*';

单独设置文件名不会过滤打开的对话框。

您可以使用这样的过滤器：

openDialog.Filter := 'Flower Files|FLOWER-*.*';

若要显示前缀为“花-”的所有文件，请执行以下操作。如果要筛选除一个特定文件名之外的所有文件名，只需在筛选器的第一部分中省略通配符：

openDialog.Filter := 'Flower-2230 File|FLOWER-2230.*';

但是(正如David在他的评论中所指出的)，当您将选择限制为单个文件时，为什么要打开一个对话框呢？