TEXT 파일 제어
APP 2012. 10. 23. 20:03 |procedure TForm1.Button1Click(Sender: TObject);
var
f1 : textfile;
begin
assignfile(f1, 'Test.txt');
if FileExists( 'Test.txt' ) then
Append(f1) // 파일 있으면 내용추가
else
Rewrite(f1); // 없으면 만들기
Writeln(f1,'쓸내용1');
closefile(f1);
end;
'APP' 카테고리의 다른 글
| GUID 생성 (0) | 2012.10.23 |
|---|---|
| 현재 떠있는 모든 창 캡션 구하기 (0) | 2012.10.23 |
| 파일명으로 아이콘 구하기 (0) | 2012.10.23 |
| 클립보드 (0) | 2012.10.23 |
| 프린트 스크린 키 눌렸는지 확인 (0) | 2012.10.23 |