프로그래밍 노트

// 지정한 폴더의 파일 리스트 가져오기 : 서브 폴더 검색 대응 function FindFiles(const sPath, sMask: string; slFiles: TStringList; bSubDir: boolean): integer; var iFindResult: integer; srSchRec : TSearchRec; begin result := 0; iFindResult := FindFirst(sPath + sMask, faAnyFile - faDirectory, srSchRec); while iFindResult = 0 do begin slFiles.Add(sPath + srSchRec.Name); iFindResult := FindNext(srSchRec); end; FindClose(srS..