- Delphi递归处理树型结构 2011-09-03 点击：1947 评论:0
- Delphi中递归删除根目录中的空目录 2011-09-03 点击：851 评论:0
树形结构定义如下:type orgVO=record PK_DEPART:string; DEPCODE:string; DEPNAME:string; DEPTDESC:stri...
procedure RemoveEmptyFolders(const rootFolder : string) ;var fd: TWin32FindData; h: THandl...
