DevHyun

txt 파일을 이용하여 log 찍기 본문

Delphi

txt 파일을 이용하여 log 찍기

D3V3L0P3R 2020. 10. 29. 10:32

예를들어 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;

 

 

Comments