delphi 写日志

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);vari: Integer;beginfor i := 0 to 400 dobeginwritelog(mmo1, '日志信息' + inttostr(i));end;end;