摘要：不久前写了个抓取网页内容的小程序，跑了一晚上，本以为早上起来都抓完了，谁知道程序死掉了，分析半天，才发现用tmemo来记录日志的信息太多了，越积越多，本来memo的容量就不大。对于无法控制信息量的日志来说，有可能造成崩溃。记得见过盒子上一个关于手机发短信的小程序，上面有个日志的写法不错。方法：1、每写一行日志，先判断memo的行数是否超过自己设定的行数，我一般设为1000行，这样保存的日志大小一般在64K左右2、判断保存日志的目录是否存在，不存在就建 一个3、用日期加时间取一个日志名，象这种2010-03-12_07-15-23-171.txt 。4、判断这个文件是否存在，（因为有些监控信息出 阅读全文

摘要：unit uProgLog;interfaceusesWindows, SysUtils, SyncObjs;constC_LOG_LEVEL_TRACE = $00000001;C_LOG_LEVEL_WARNING = $00000002;C_LOG_LEVEL_ERROR = $00000004;typeEnumSeverity = (TraceLevel, WarningLevel, ErrorLevel, LogLevel);function SeverityDesc(severity: EnumSeverity): string;typeTLogFile = classpr... 阅读全文

摘要：写一个日志的函数,只需要传内容进去即可,自动记录时间的,日志保存在'c:\ErpRunLog.txt'下procedure writeWorkLog(sqlstr: string);var filev: TextFile; ss: string;begin sqlstr:=DateTimeToStr(Now)+' Log: '+sqlstr; ss:='c:\ErpRunLog.txt'; if FileExists(ss) then begin AssignFile(filev, ss); append(filev); writeln(file 阅读全文