초보 wrote:

> if i =0 then

> rewrite(z1)

> else append(z1);

>

> for문을 돌려서

> 처음만 rewrite로 열고 다음부터는 append로 파일을 열려고

> 하는데, i/o 에러가 자꾸생기네요.

> 원래 이렇게는 사용할수 없는건지..,

> 좋은 방법이 있으면 좀 가르쳐 주세요 고수님들.

> 그럼...--

>

안녕하세요.. 술친굽니다.

위의 내용에서 제생각에는 열려있는 파일을 다시 열고자 하니 에러가 나는것 같군요..

다음과 같이 해보세요..

if i = 0 then

begin

rewrite(z1);

하고자하는 작업;

CloseFile(z1);

end

else

begin

append(z1);

다음 할 작업;

CloseFile(z1);

end;

그런데 위의 작업은 파일의 열고 닫기가 자주 발생합니다.

로직을 손보시는게 어떠실지....

예를 들면



Rewrite(z1);

처음 할 작업;

CloseFile(z1);



Append(z1);

for i := 1 to Count do

begin

계속할 작업;

end;

CloseFile(z1);



제 답변이 의도하신 것인지는 모르겠지만

참고가 되셨기를..



고수님들의 조언을 기다립니다.



술친구였슴돠..