Man_Without_Face
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
procedure WriteLog(const Msg: string);
var
LogThread: TLogThread;
begin
LogThread := TLogThread.Create(true);
LogThread.FreeOnTerminate := true;
LogThread.Priority := tpNormal;
LogThread.msg := msg;
LogThread.Resume;
end;
procedure TLogThread.Execute;
var
sFile, sMsg: string;
F: TextFile;
year, month, day: Word;
begin
LogThreadCriticalSection.Enter;
decodedate(date, year, month, day);
sFile := 'Serverlogs\Server('+inttostr(day)+'-'+inttostr(month)+'-'+inttostr(year)+').log';
try
if FileExists(sFile) then
begin
AssignFile(F, sFile);
Append(F);
end
else
begin
AssignFile(F, sFile);
ReWrite(F);
end;
sMsg := FormatDateTime('dd.mm.yyyy hh:nn:ss.zzz', Now)+ ' : ' + Msg;
Writeln(F, sMsg);
finally
CloseFile(F);
end;
LogThreadCriticalSection.Leave;
end;
|
