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;