Question

delphi打开文件夹时如何让其只显示后缀名为*.txt文本文件,使用opendilog1控件

只想显示文本文件,其他的WORD文档,EXCEL文档,PDF文档都不显.
procedure TForm1.Button2Click(Sender: TObject);
begin

if OpenDialog1.Execute then
Edit1.Text:=OpenDialog1.FileName ;
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

Answer 1

begin
OpenDialog1.Filter := '文本文件(*.txt)|*.txt'; // 加这句话
if OpenDialog1.Execute then
...