转发一个设计模式案例，本例采用Obverse模式，用delphi实现遍历文件功能，采用了多线程技术-Forwarding the case of a design pattern, which in this case using Obverse mode, use delphi to achieve ergodic file function, use of multi-threading technology