삽질/Delphi
[Delphi] 델파이에서 파일쓰기
푸딩s
2011. 6. 15. 15:36
var
F: TextFile;
FileName: string;
begin FileName := '파일명';
try
try
AssignFile(F, FileName); // 파일이 없으면 파일을 생성
if FileExists(FileName) then
Append(F) // 기존 내용에 추가하기
else
Rewrite(F); // 기존 내용을 덮어쓰기
Writeln(F, '작성 할 내용');
except
on E: Exception do
;
;
end;
finally
CloseFile(F);
end;