delphi 获取一个文件夹下的一级目录

本文整理自网络，侵删。

 
function TForm1.GetFolders(MainPath:string):TStringList;
var
  SearchRec: TSearchRec;
  sMainpath: String;
  list:TStringList;
begin
  list:=TStringList.Create;
  if MainPath[Length(MainPath)]='\' then  sMainpath:=MainPath
  else sMainpath:=MainPath+'\';
  FindFirst(sMainPath+'*.*',faDirectory,SearchRec);
  if SearchRec.Name<>'' then
  begin
    if (SearchRec.Attr and faDirectory)=faDirectory then
      if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
         list.Add(SearchRec.Name);
    while  (FindNext(SearchRec)=0) do
    begin
      if (SearchRec.Attr and faDirectory)=faDirectory then
        if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
          list.Add(SearchRec.Name);
    end;
  end;
  Result:=list;
end;
 

相关阅读 >>

Delphi 解析 png 图片的十六进制字符流

Delphi 实现英汉字典的转换

Delphi stringgrid 加载excel表格文件内容自动宽度

Delphi 双击listbox1内容，数据插入到memo1/synedit1鼠标指定位置

Delphi中判断窗体最大化和最小化事件

Delphi idhashmessagedigest, idhash, idglobal md5

Delphi调用cmd并取得输出字符

md5unit.pas

Delphi 取16进制字符的10进制的integer值

elphi中取出字符串中指定位置的几个字符

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 获取一个文件夹下的一级目录