안녕하세요.. 무더운 여름에도 일하고 공부하시느라 무진장 힘드시죠..? ^^;
다름이 아니라.. 파일을 만들어야 되거든용... 음.. 혹시.. 연말정산에 전산매체신고자료 라는걸 아시는 분이 계시는지..
암튼.. 그걸 만들어야 하는데요.. 예를 들어 임의로 받은 문자가 123456789이면 파일 이름을 123456.789로 하는 텍스트 파일을 만들고 싶습니다...
주위 사람들에게 물어보니.. file writein... 이런게 있다고 하는데...
도무지 어떻게 사용하는지를 잘 모르겠습니당.. 고수님들 도와주세요~~
//도움이 되셨으면 합니다.
var
RecFH : TextFile;
tmp_FILENM : String;
tmp1,tmp2,tmp3,tmp4 : string;
begin
tmp_FILENM := '123456.789';
try
AssignFile(RecFH, tmp_FILENM); //파일 만들기
Rewrite(RecFH); //쓰기할 상태
except
showmessage('파일오류');
end;
tmp1 := ('첫번째' + ' 줄 입니다.');
tmp2 := ('두번째' + ' 줄 입니다.');
tmp3 := ('세번째' + ' 줄 입니다.');
tmp4 := ('네번째' + ' 줄 입니다.');
Writeln(RecFH,tmp1 ); //첫번째줄에 적을내용
Writeln(RecFH,tmp2 );
Writeln(RecFH,tmp3 );
Writeln(RecFH,tmp4 );
CloseFile(RecFH);
end;
도움이 되시길
즐코하세요