46、深入探究核心编程类与工具

深入探究核心编程类与工具

一、文件搜索与路径处理

在编程中，我们常常需要对文件进行搜索和处理。以下代码展示了如何使用简单的基于掩码的过滤方法来搜索指定文件夹及其子文件夹中的 .pas 文件，并将文件名显示在用户界面上。

procedure TFormIoFiles.btnPasFilesClick(Sender: TObject);
var
  pathList, filesList: TStringDynArray;
  strPath, strFile: string;
begin
  if TDirectory.Exists (edBaseFolder.Text) then
  begin
    // 清理列表框
    ListBox1.Items.Clear;
    // 在指定文件夹中搜索
    filesList := TDirectory.GetFiles (edBaseFolder.Text, '*.pas');
    for strFile in filesList do
      sFilesList.Add(strFile);
    // 在所有子文件夹中搜索
    pathList := TDirectory.GetDirectories(edBaseFolder.Text,
      TSearchOption.soAllDirectories, nil);
    for strPath in pathList do
    begin
      filesList := TDirectory.GetFiles (strPath, '*.pas');