paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:46:00 +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 Repeat
Sleep(1000); Sleep(1000);
inc(c); inc(c);
Application.Logger.Info(Format('Tick : %d',[C])); Application.Log(etcustom,Format('Tick : %d',[C]));
Until Terminated; Until Terminated;
end; end;
Procedure AWriteln(MSg : String; B : Boolean); Procedure AWriteln(MSg : String; B : Boolean);
begin begin
Application.Logger.Info(Msg+BoolToStr(B)); Application.Log(etcustom,Msg+BoolToStr(B));
end; end;
{ TTestDaemon } { TTestDaemon }