本文整理自网络，侵删。
unit WriteLog;
interface
Uses Windows,SysUtils;
function WriteTxt(strWrite:string):boolean;
implementation
function WriteTxt(strWrite:string):boolean;
var
wLogFile: TextFile;
DateTime: TDateTime;
strTxtName,strContent: string;
begin
DateTime:=now;
strTxtName:=ExtractFilePath(paramstr(0))+FormatdateTime('yyyy-mm-dd',DateTime)+'.txt';
AssignFile(wLogFile, strTxtName);
if FileExists(strTxtName) then
Append(wLogFile)
else
begin
ReWrite(wLogFile);
end;
strContent:=FormatdateTime('tt',DateTime)+' '+strWrite;
Writeln(wLogFile, strContent);
CloseFile(wLogFile);
Result:=true;
end;
end.
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>
