delphi 获取当前文件夹txt文本文件列表

// 获取当前文件列表

procedure TfrmMain.GetCfgList(strConfName: string);

var

    sr: TSearchRec;

    fr: Integer;

begin

    lbConfig.Items.Clear;

    fr := FindFirst(g_strPath + CFG_DIR + '\*.txt', faAnyFile, sr);

    while fr = 0 do

    begin

        if (sr.Attr = faDirectory) and (sr.Name <> '.') and (sr.Name <> '..') then

        begin

            continue;

        end;

        lbConfig.Items.Add(sr.Name);

        if (CFG_NAME_PRE + sr.Name = strConfName) then

        begin

            lbConfig.Selected[lbConfig.Items.Count - 1] := true;

        end;

        fr := FindNext(sr);

    end;

    FindClose(sr);

end;