일마레의 개발이야기

안녕하세요, 일마레입니다. 얼마전에 프로그램 LOG를 생성하는 방법을 안내해 드렸는요. 계속 사용하다 보면 LOG도 무시 못할 정도로 쌓이게되죠.그래서 오늘은 삭제 하는 방법을 알려드리려고 해요. 아래 안내해 드리는 내용 확인하시고, 좋은 하루 보내세요!function LogFileDel : Boolean;var    DirInfo: TSearchRec;    r : Integer;    ts : TStringList;begin    try        r := FindFirst(ExtractFilePath(Application.ExeName)+'\log\*.*', FaAnyfile, DirInfo);        while r = 0 do  begin           if ((DirInfo.Attr ..

안녕하세요, 일마레입니다. 개발을 하고 운영을 하다 보면 에러가 발생할 경우가 생기는데 빠른 수정을 위해 생성 해놓은 로그를 보면서 처리하고 있습니다. 어떤 작업 혹은 상황이었는지 로그를 만들어 놓으면 빠른 확인 및 처리가 가능하기에 사용하고 있습니다.public  gsLogFile  : string;procedure Log(ALog: string);var  hFile: TextFile;begin  if VarIsNull(gsLogFile) then    gsLogFile := ExtractFilePath(Application.ExeName)+'log\'+FormatDateTime('yyyymmdd', Now)+'.log';  try    AssignFile(hFile, gsLogFile);    try..