텍스트 파일을 체크해서 있으면 열고, 없으면 새로 만들어 열어 기록하는
구문입니다.
기존에 일단 파일이 생성되어 잇으면 에러가 생기지 않는데,
파일을 새로 만들어 열려면 I/O 에러가 발생 됩니다.
fName1 : String;
f1 : TextFile;
begin
fName1 := 'K.txt';
if Not (FileExists(fName1)) then
FileCreate(fName1);
//Reset(f1);
//FileClose(hFile);
AssignFile(f1, fName1);
Rewrite(f1);
Writeln(f1, '7');
파일 생성과 열기 사이에 여러가지를 집어 넣어 봤지만 에러는
똑같더군여.
솔직히 전에도 이 질문을 올렷는데여.
답변으로 올려주신 것들 다 해봤는데 마찬 가지 였읍니다.
그리고 몇달 동안을 헤메고 잇는데, 아직도 답을 못찻고 잇읍니다.
도움 부탁드립니다.
기록하는 문장으로 만드는 것을 수정을 해보았습니다..
Var
fName1 : String;
f1 : TextFile;
begin
fName1 := 'K.txt';
Append로 바꾸니까 화일의 존재 유무는 체크가 별의미가 없음..
// if Not (FileExists(fName1)) then
// FileCreate(fName1);
AssignFile(f1, fName1);
// Rewrite(f1); -- 있으면 지우고 저장
// Append는 있으면 열고 계속저장 없으면 만들고 저장
Append(f1);
Writeln(f1, '7');
CloseFile(f1);