DELPHI中Tedit1 button1 FileListBox1，怎么实现Tedit输入文字单击button，filelistbox显示类似文字列表

DELPHI中Tedit1 button1 FileListBox1，如何实现Tedit输入文字单击button，filelistbox显示类似文字列表
D:\1文件夹下有222.doc 1111.doc 1.doc；edit1输入1按button FileListBox显示出1.doc和1111.doc类似于模糊查询实现

[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
begin
FileListBox1.Mask := Edit1.Text + '*.*';
end;

[解决办法]
楼上的不对吧，楼主要的好像是根据名称查询。
如果这样就要在Delphi程序里面控制了，好像没有现成的控件。
大概是两步：
1.遍历文件夹，查出所有文件
2.写个函数检查文件名，符合要求的，加载到显示控件。

问题1相关代码：

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);var   FileSearchRec: TSearchRec;begin    memo1.Clear;   if FindFirst('f:\' + '*.*', faanyfile, FileSearchRec) = 0 then   begin      if (FileSearchRec.Name <> '.') and (FileSearchRec.Name <> '..') and         ((FileSearchRec.Attr and faDirectory) <> faDirectory) then      begin            memo1.Lines.Add(FileSearchRec.Name);      end      else      begin           end;      while FindNext(FileSearchRec) = 0 do      begin         if (FileSearchRec.Name <> '.') and (FileSearchRec.Name <> '..') and            ((FileSearchRec.Attr and faDirectory) <> faDirectory) then         begin            memo1.Lines.Add(FileSearchRec.Name); //         end         else         begin         //如果想遍历子目录，则在此递归操作         end;      end;   end;   findclose(FileSearchRec);end;
[解决办法]
FileListBox1.Directory:='D:\1';
FileListBox1.Mask := Edit1.Text + '*.doc';
[解决办法]
探讨


FileListBox1.Directory:='D:\1';
FileListBox1.Mask := Edit1.Text + '*.doc';