paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 22:46:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* compiles again ( .logger.info references changes to application.log())

Browse Source 
git-svn-id: trunk@16501 -
This commit is contained in:
marco 2010-12-03 22:18:05 +00:00
parent 413dcde4aa
commit a1ebbdcee1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-base/examples/daemon.pp
View File

@ -49,14 +49,14 @@ begin
Repeat
Sleep(1000);
inc(c);
Application.Logger.Info(Format('Tick : %d',[C]));
Application.Log(etcustom,Format('Tick : %d',[C]));
Until Terminated;
end;
Procedure AWriteln(MSg : String; B : Boolean);
begin
Application.Logger.Info(Msg+BoolToStr(B));
Application.Log(etcustom,Msg+BoolToStr(B));
end;
{ TTestDaemon }