delphi 获取当前目录下所有文件名3

procedure TForm1.GetDirFileList(listcss: tstrings);

var

lSearchRec: TSearchRec;

lFind: integer;

lPath: string;

dirName : string;

begin

lPath := ExtractFileDir(ParamStr(0))+'\';

if DirectoryExists(lPath) then

begin

lFind := FindFirst(lPath+'*.*',faAnyFile, lSearchRec); //这里可以设置，获取文件类型

listcss.Clear;

while lFind = 0 do

begin

dirName:=lSearchRec.Name;

if (dirName <> '.')

and (dirName <> '..')

and (FileExists(lPath+dirName)) then

listcss.Add(dirName);

lFind := FindNext(lSearchRec);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

GetDirFileList(Memo1.Lines);

end;

推荐分享