일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | |||||
3 | 4 | 5 | 6 | 7 | 8 | 9 |
10 | 11 | 12 | 13 | 14 | 15 | 16 |
17 | 18 | 19 | 20 | 21 | 22 | 23 |
24 | 25 | 26 | 27 | 28 | 29 | 30 |
- templates
- COMMIT
- TMS
- pyhcarm
- Visual Studio
- anaconda3
- declare
- python3
- queryset
- python 3.7
- 델파이
- Delphi
- github
- Push
- dbadvgrid
- GIT
- c#
- advColumnGrid
- 중복제거
- get_object_or_404
- MSSQL
- HTML
- delphi 10.3
- pythonanywhere
- blog
- rank
- 백준
- Django
- PyCharm
- hackerrank
- Today
- Total
DevHyun
txt 파일을 이용하여 log 찍기 본문
예를들어 C:\TEMP 폴더가 있으면 C:\TEMP 폴더에 log.txt 파일을 생성하여 '로그 로그 로그'를 작성하기
만약 i/o Error가 난다면 입력할수있는 글자수가 초과되었을 수도 있음!
procedure TForm1.Button1Click(Sender: TObejct); var dir : string; // 경로 txt : TextFile; // 텍스트파일 begin //if Not DirectoryExists('경로') then if Not DirectoryExists('C:\TEMP') then begin //CreateDir('경로'); CreateDir('C:\TEMP'); end;
//dir := '텍스트 파일 명을 포함한 경로'; dir := 'C:\TEMP\log.txt';
// AssignFile(텍스트파일 객체,경로 변수); AssignFile(txt,dir);
// ReWrite(텍스트 파일 객체); -- 덮어쓰기 ReWrite(txt); // Writeln(텍스트파일 객체, '내용'); -- 줄바꿈 Writeln(txt,'로그 로그 로그'); // Write(텍스트파일 객체, '내용'); -- 줄바꿈 없음 Write(txt,'로그 로그 로그');
// Append(텍스트 파일 객체); -- 기존 파일에 추가 Append(txt); // Writeln(텍스트파일 객체, '내용'); -- 줄바꿈 Writeln(txt,'로그 로그 로그'); // Write(텍스트파일 객체, '내용'); -- 줄바꿈 없음 Write(txt,'로그 로그 로그');
//CloseFile(텍스트 파일 객체); CloseFile(txt); end;
|
'Delphi' 카테고리의 다른 글
TWebbrowser 컴포넌트 핸들링하기! (0) | 2020.12.11 |
---|---|
tms 그리드에서 그리드 내의 숫자 format 변경하기 (0) | 2020.11.16 |
파일 이동 (move), 복사(copy) , 삭제(delete) (0) | 2020.10.29 |
Directory 생성 및 존재유무 확인 및 Directory 생성/삭제 (0) | 2020.10.29 |
Delphi XE2 버전 이후로 델파이에서 폴더/파일 압축 하고싶을때 (0) | 2020.10.29 |