[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해준다고 하는데 왜 에러가 나는지 잘모르겠네요. 도움 부탁합니다.

음.. 마이크로 소프트웨어라는 잡지에 제가 글을 썼었는데, 몇월호 였는지는 기억이 잘 나지 않는군요...

APD 에서 한글을 사용하는 방법이었는데..



이것만 기억해 두세요.



터미널에서 글자를 뿌릴때, 한글일 경우에는 두바이트를 한번에 뿌려주게 코드를 수정해야 합니다.







이태호 wrote:

> 안녕하세요!

> 저는 APRO 2.54 버젼을 사용하고 있습니다.

> 그런데 이번에 통신용 에뮬레이터를 하나 만들고 있는데,

> 하이텔, 천리안 등 BBS에서 한글이 깨어져서 보이는 군요.

> 마우스의 커서가 위로 지나가거나 아니면 한글입력시 무슨

> 글자인지 전혀 알 수 없이 네모 박스만 보이는 군요.

>

> 한글이 안깨지게 하는 방법이 없나요!

>

> 해결 방법 아시면 좀 알려 주세요!

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

> [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;