안녕하세요..
지금 준비하고 있는 프로젝트도 거의.. 중반기를 넘었네요....
막히고 힘들 때 도와 주신 분들에게 정말로 감사드리고요... 이제는 델파이가 점점 가까워지는 느낌입니다...(배신은 안 하겠죠...^^)
NewFileName := ExtractFilePath(Application.ExeName)+ 'abc.htm';
if FileExists(NewFileName) then
begin
showmessage('이미 데이타가 존재합니다. 확인해 다시 실행하십시요.');
exit;
end
else
begin
Memo1.Text :='데이타 파일입니다.' ;
Memo1.Text := Memo1.Text + NewFileName;
showmessage( Memo1.Text);
AssignFile(MyFile, NewFileName);
Rewrite(MyFile);
WriteLn(MyFile,Memo1.Text);
CloseFile(MyFile);
end;
상기와 같이 프로그램을 짜고 있는데... 아무래도..먼저 파일을 생성시켜야만
에러가 안 날것 같은데요.....
죄송하지만... 먼저 파일 생성시키는 함수는 아무리 찾아도 없네요...
그리고..
memo1.lines.savetofile(NewFileName) 을 치면 파일이 생성되는 것 같은데요... 그냥..순수하게..파일을 그냥..생성시킬 수는 없는지....
다시 한번 끝까지..봐주신 분들께 감사드립니다.
참고로 Rewrite는 파일을 생성하고 생성된 파일을 여는 함수입니다...
그러므로 기존에 같은 이름의 파일이 있으면 무조건 덮어쓰게 돼죠
그리고 Reset은 존재하는 파일만 여는 함수입니다~
TMemo에서 SaveToFile과 같은 효과를 볼려면
WriteLn보다는 Write를 쓰셔야겠네요..
그럼 이만 .. 즐프하세요