프로그래밍 노트

// GetFileList : Sub Folder안의 File까지 검색하는 함수 // slFileList : 반환하는 File List // sPath : 검색한 Root Folder // sMask : File 검색 Mask 설정 // 예) '*.txt', '*.exe' // bSubDir : SubFolder 검색 유무 procedure GetFileList(slFileList: TStringList; sPath, sMask: string; bSubDir: boolean); var i, iFindRst : integer; SrchRec : TSearchRec; slFolder : TStringList; begin if sPath[length(sPath)] '\' then sPath := sPath +..