delphi - 如何在delphi的TOpenDialog中只过滤纯文本文件

Question

我需要能够将文件中的文本放入备忘录中，但我已经涵盖了这部分。

我想做的是在文件对话框中只过滤纯文本文件（.txt；.html；.c；.cs；等）

有没有一些快速的方法可以做到这一点，或者我只是手动过滤所有纯文本文件？

Answer 1

Andreas Rejbrand 在评论中给出的答案是正确的。

这是一个实现它的代码片段：

procedure TForm1.Button1Click(Sender: TObject);
begin
    OpenDialog1.Filter := 'Text files|*.TXT;*.HTML;*.C;*.CS';
    if OpenDialog1.Execute(Handle) then
        Memo1.Lines.LoadFromFile(OpenDialog1.FileName)
    else
        Memo1.Lines.Add('**** cancel ****');
end;

此代码写入将选定的文件内容加载到备忘录中。