프로그래밍 노트

선택한 폴더의 들어있는 파일을 리스트 박스에 표시하는 예제 function TfrmMain.GetFileList(sFolder: string): integer; var SrcRec : TSearchRec; nCnt : integer; begin if DirectoryExists(sFolder) then begin nCnt := 0; // '\'가 없으면 붙임 sFolder := IncludeTrailingPathDelimiter(sFolder); // 폴더의 모든 파일 표시 if FindFirst(sFolder + '*.*', faAnyFile, SrcRec) = 0 then try repeat // 폴더, 현 폴더, 상위 폴더 제외 if not((SrcRec.Attr and faDirectory > 0..