delphi 写日志

2015年10月24日 13:51:13 落幕年代 阅读数 2031

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(filev, sqlstr);  end else begin    AssignFile(filev, ss);    ReWrite(filev);    writeln(filev, sqlstr);  end;  CloseFile(filev);end;

procedure TForm1.btn1Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to 400 do
begin
writelog(mmo1, '日志信息' + inttostr(i));
end;
end;