일반적으로 DB 자료를 텍스트 파일로 쓰기 위해서
OpenDlg 를 많이 쓰는데여.
이방식 말고 특정 이름의 텍스트 파일을 새로 만들어서
그 텍스트 파일을 열고, 거기에 자료를 쓰고 싶거든여.
방법좀 알려 주세여..
제가 해본건데 자꾸 I/O 에러가 발생하네여.
var
fName1 : String;
f1 : TextFile;
begin
fName1 := seYear.Text+'년'+seSeason.Text+'기.txt';
if Not (FileExists(fName1)) then
FileCreate(fName1);
FileOpen(fName1, fmOpenWrite);
AssignFile(f1, fName1);
Rewrite(f1);
Writeln(f1, '자료내용');
CloseFile(f1);
end;
읽으려고 해서 난 Error 같습니다.
FileCreate를 하자마자 파일이 만들어지지 않가 때문이죠.
FileCreate를 미리 따로 하시거나
파일이 만들어져 있는지 검사하는 루틴을 추가하시거나....
자세한 로직은 이곳에서 조금만 찾아보시면 금방 아실 수 있으리라 기대합니다...