정윤옥 께서 말씀하시기를...

> [source]

> procedure filesave;

> var

> filename: string;

> f: textfile;

> begin

> filename := 'c:test.txt';

> assignfile(f, filename);

> rewrite(f);

> writeln(f, 'test');

> closefile(f);

> end;

>

> 처음 filesave procedure를 호출하면 에러가 없는데 연속적으로 재호출시

> rewrite procedure에서 i/o error number 103: file not open가 발생합니다.

> rewrite procedure는 존재하는 파일일 경우에도 파일을 지우고 재생성한다음

> open해준다고 하는데 왜 에러가 나는지 잘모르겠네요. 도움 부탁합니다.

>

>

>

>



안녕하세요.



저도 같은 방법으로 했는데 아무이상이 없더군요...쩝. 버턴을 무쟈게 눌러 봤는데....도...음..



혹시 모르니 다른 부분이나 다른 프로그램에서 에서 이미 화일을 열어 놓고 있는지 확인해 보세요.



procedure TForm1.Button1Click(Sender: TObject);

var

filename: string;

f: textfile;

begin

filename := 'c:test.txt';

assignfile(f, filename);

rewrite(f);

writeln(f, 'test');

closefile(f);

end;