توضیح

این تابع لیست فایلهای موجود در آن شاخه را با توجه به الگوی داده شده برمی گرداند.

کد دلفی

procedure ListFileDir(Path: string; FileList: TStrings);
var
    SR: TSearchRec;
begin
    if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
    begin
        repeat
            if (SR.Attr <> faDirectory) then
            begin
                FileList.Add(SR.Name);
            end;
        until FindNext(SR) <> 0;
        FindClose(SR);
    end;
end;