blob: 7cc38c638dc54e9103ad02129b0263700e9b0500 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
program testlog;
uses systemlog,sysutils;
procedure dotest;
var i : longint;
prefix : ansistring;
begin
i:=GetProcessID;
prefix:=format('testlog[%d] ',[i]);
// prefix will be prepended to every message now.
openlog(pchar(prefix),LOG_NOWAIT,LOG_DEBUG);
for i:=1 to 10 do
syslog(log_info,'This is message number %d'#10,[i]);
prefix:='';
end;
begin
dotest;
end.
|
