用haclon程序将目录名分离的算法. ParseFileName:='F:/D705/4-20/缺陷/81.bmp' parse_filename(ParseFileName, BaseName, Extension, Directory) * This procedure gets a filename (with full path) as input * and returns the directory path, the base filename and the extension