1）遍历文件夹：

list_files( : : Directory, Options : Files)

Directory：目录（文件夹路径）

Options：选项

‘files’ 指定搜索的格式为文件
‘directories’ 指定搜索的格式为文件夹
‘recursive’ 指定可以遍历子文件夹下的文件
‘follow_links’
‘max_depth 5’ 指定遍历的深度
‘max_files 1000’ 指定遍历的最大文件数目
Files：文件（文件的路径）

2）文件格式筛选

tuple_regexp_select( : : Data, Expression : Selection)

Data：被选择的文件路径数组

Expression：文件格式的筛选规则

//. 转义 .
(bmp|JPG) 筛选的文件格式
‘ignore_case’ 忽略大小写
Selection：选择出的文件路径数组

示例：

   1: * 遍历文件夹D:/资料库/Downloads
   2: list_files ('D:/资料库/Downloads', ['files','follow_links'], ImageFiles)
   3:  
   4: * 筛选bmp或jpg格式的文件
   5: tuple_regexp_select (ImageFiles, ['\\.(bmp|jpg)$','ignore_case'], ImageFiles)
   6:  
   7: * 依次读取图片
   8: for Index := 0 to |ImageFiles| - 1 by 1
   9:     read_image (Image, ImageFiles[Index])
  10:     
  11: endfor