// 스캔자료의 누적 파일을 모으는 작업입니다...

// DB에 모으니까 용량이 제법 많아서 text로 모으려고 하는데...

procedure TScanFrm.Edit1Change(Sender: TObject);

var

F : TextFile;

i : integer;

s_tree,s_file,s_time : string;



begin

//시간별로 텍스트 파일 생성해서 트랜서 체크 자료를 모음...



If length(Edt_bar.Text) < 11 then exit; //







If copy(timeTostr(time()),7,1) = ':' then

s_time := trim(copy(timeTostr(time()),1,6))

else

s_time := trim(copy(timeTostr(time()),1,7));



s_file := DateToStr(date()) + '-'+ s_time;

s_tree := 'C:sagm'+s_file+'.txt';



If not FileExists(s_tree) then

begin

Filecreate(s_tree); //다른 형태로 파일을 만들어도 에러가 남...

end;



If FileExists(s_tree) then

begin

AssignFile(F,s_tree);

Append(F);

Writeln(F,Edt_bar.text+':'+timeToStr(time()));

closeFile(F);

end;



// 문제는 텍스터파일을 생성한뒤 바로 writln문을 이용하여 그 파일에 쓰려고 하면

에러가 발생합니다.... 일단 파일을 생성한뒤 프로그램을 종료하고 다시 프로그램을 실행하면

프로그램이 정상적으로 돌아갑니다...



project Project1.exe raised exception class EInOutError with 'I/O error 32'



즉 텍스트파일을 만드는 프로그램을 따로만들어서 사용해야 되는데 한프로그램에서

텍스트파이릉을 만들고 그텍스터파일에 텍스터를 저장하려면 어떡해야 되죠