...



done := findfirst(...'*.txt'...



while done

begin

readln...



done := findnext(...

end;



findclose(..

님아 고맙습니다....

근데요...

저 정말 왕초보거든요???

그러니깐 설명 좀 부탁 드립니다...

아님 다른님이라도 설명 좀 부탁드립니다...

그럼 수고하세요...



done := findfirst(...'*.txt'... <==== 앞뒤에 경로을 쓰면 되는거에요??



while done

begin

readln...

done := findnext(... <=== 인자(파라미터)로 뭘 받아야 하는지요???

end;



findclose(.. <===여기도??

도움말 화일을 보면 잘 알 수가 있습니다.



영어로 되어 있다는게 문제이긴 하지만.... 쩝



도움말 보는것은 아시죠?^^(FindFirst에 커서를 놓고 F1을 누른다!)



도움말에 예제가 있습니다. 그럼, 이해가 빠를듯....



ex)

procedure Tform1.Button1Click( Sender : TObject )

var

sr : TSearchRec;

begin

FindFirst('c:*.txt', faAnyFile, sr);



...



FindNext(sr);



...



FindClose(sr);

end;



위의 예제는 c:의 경로에서 *.txt중 하나의 화일만 읽는 예제입니다.



모든 화일을 읽으려면 루프를 사용해야 합니다.



도움말의 예제에 보시면 모든것이 나와 있습니다.



그럼, 20000



i believe i can fly!!



--------



델초보쭈니~ wrote:

> 님아 고맙습니다....

> 근데요...

> 저 정말 왕초보거든요???

> 그러니깐 설명 좀 부탁 드립니다...

> 아님 다른님이라도 설명 좀 부탁드립니다...

> 그럼 수고하세요...

>

> done := findfirst(...'*.txt'... <==== 앞뒤에 경로을 쓰면 되는거에요??

>

> while done

> begin

> readln...

> done := findnext(... <=== 인자(파라미터)로 뭘 받아야 하는지요???

> end;

>

> findclose(.. <===여기도??