황영철 wrote:

> 1번 질문 : 특정 디렉토리의 모든 파일을 읽옵니다.

> 2번 질문 : 모든 파일의 최종 수정일을 비교해서 최근에 수정된

> 파일만 가져오는 방법을 좀 가르쳐 주세요

>

> 중원의 많은 고수들의 무공을 전수 받았으면 합니다.

> 그럼 좋은 시간되세요

>



findfirst(), findnext() 함수로 특정 디렉토리의 화일을 읽어 옵니다.

화일의 정보는 TsearchRec 구조의 변수에 저장됩니다.

읽은 화일의 날짜를 변수에 기억 합니다.

다음 화일을 읽어 전에 읽어놓은 화일의 날짜와 비교합니다.

지금 읽은것이 최신것이면 지금의 화일의 이름을 변수에 기억시킵니다.

요것을 화일이 없을때까지 반복합니다.



위의 내용을 자연어 모양으로 만들어 보겠습니다.



var

sr : TsearchRec;

fname : string;

begin

findfirst(요안의 para는 도움말을 보세요^^)

fname := sr.name;

repeat

if fdate < sr.date then

fname := sr.name;

until findnext <>0;



memo.lines.loadfromfile(fname);

end;



전체 flow는 요정도 입니다.

자세한것은 저도 메뉴얼을 봐야 알겠네요. 지금 집이 아니라...

더 햇갈리게 했다면 미안합니다. -.-

> findfirst(), findnext() 함수로 특정 디렉토리의 화일을 읽어 옵니다.

> 화일의 정보는 TsearchRec 구조의 변수에 저장됩니다.

> 읽은 화일의 날짜를 변수에 기억 합니다.

> 다음 화일을 읽어 전에 읽어놓은 화일의 날짜와 비교합니다.

> 지금 읽은것이 최신것이면 지금의 화일의 이름을 변수에 기억시킵니다.

> 요것을 화일이 없을때까지 반복합니다.

>

> 위의 내용을 자연어 모양으로 만들어 보겠습니다.

>

> var

> sr : TsearchRec;

> fname : string;

> begin

> findfirst(요안의 para는 도움말을 보세요^^)

> fname := sr.name;

> repeat

> if fdate < sr.date then

> fname := sr.name;

> until findnext <>0;

>

> memo.lines.loadfromfile(fname);

> end;

>

> 전체 flow는 요정도 입니다.

> 자세한것은 저도 메뉴얼을 봐야 알겠네요. 지금 집이 아니라...

> 더 햇갈리게 했다면 미안합니다. -.-

죄송합니다.만 잘 안되네요

초보여서 상세히 좀 가르쳐 주세요 ㅠ.ㅠ