vLOGFileNameM  := FormatDateTime('yyyymmdd', Now);
vlogName       := vLOGFileNameM + '.log';
FFileChannel   := TFileChannel.Create(vlogName);
FFileLogHaneld := Logger.Channels.Add(FFileChannel);

constructor TFileChannel.Create(const AFileName: string; ChannelOptions: TFileChannelOptions);
constlogDir = 'Logs';
beginif not DirectoryExists(logDir) thenForceDirectories(logDir);FShowPrefix := fcoShowPrefix in ChannelOptions;FShowTime   := fcoShowTime in ChannelOptions;FShowHeader := fcoShowHeader in ChannelOptions;Active      := True;FFileName   := logDir + DirectorySeparator + AFileName;
end;

with Logger dobeginChannels.Add(LogTreeView1.Channel);Channels.Add(TIPCChannel.Create());Channels.Add(TFileChannel.Create('debug.log',[fcoShowHeader, fcoShowPrefix, fcoShowTime]));DefaultClasses := [lcDebug];end;

procedure TForm1.TestLogClick(Sender: TObject);
varAList:TStringList;
beginwith Logger dobeginActiveClasses:=lcAll;EnterMethod(Sender,'TestLogClick');AList:=TStringList.Create;with AList dobeginAdd('aaaaaaa');Add('bbbbbbb');Add('ccccccc');end;Send('A Text Message');Send('Another Text Message');Send('A StringList', AList);AList.Destroy;SendError('A Error Message');SubLogClick(butSubLog);DefaultClasses := [lcWarning];ActiveClasses:=[lcDebug,lcInfo];Send('This Text Should NOT be logged');Send([lcDebug],'This Text Should be logged');ActiveClasses:=[];Send([lcWarning],'But This Text Should NOT');//Exitmethod is called even if not active if there's a unpaired EnterMethodExitMethod(Sender,'TestLogClick');ActiveClasses:=lcAll;end;
end;procedure TForm1.SubLogClick(Sender: TObject);varOldClasses: set of TDebugClass;beginwith Logger dobeginOldClasses:=ActiveClasses;ActiveClasses:=lcAll;EnterMethod(Sender,'SubLogClick');SendIf('Only show if called by TestLogClick',CalledBy('TestLogClick'));Send('AText inside DoIt');SendWarning('AWarning');SendCallStack('CallStack example');Send('A String','sadjfgadsfbmsandfb');Send('AInteger',4957);Send('A Boolean',True);ExitMethod(Sender,'SubLogClick');ActiveClasses:=OldClasses;end;end;

=== Log Session Started at 2019/5/12 9:19:41 by MultiLogDemo ===
09:19:45.201 >>ENTER METHOD: TButton(butTestLog).TestLogClick
09:19:45.205   INFO: A Text Message
09:19:45.209   INFO: Another Text Message
09:19:45.212   STRINGS: A StringListaaaaaaabbbbbbbccccccc
09:19:45.215   ERROR: A Error Message
09:19:45.218   >>ENTER METHOD: TButton(butSubLog).SubLogClick
09:19:45.221     CONDITIONAL: Only show if called by TestLogClick
09:19:45.224     INFO: AText inside DoIt
09:19:45.227     WARNING: AWarning
09:19:45.336     CALL STACK: CallStack example$000000010002DF2D line 329 of unit1.pas$000000010002CF0F line 144 of unit1.pas$0000000100126EF8 line 2913 of include/control.inc$00000001001448FA line 55 of include/buttoncontrol.inc$000000010014502F line 169 of include/buttons.inc$00000001001447C2 line 21 of include/buttoncontrol.inc$000000010000E1B5$0000000100119B3C line 5419 of include/wincontrol.inc$00000001001A9277 line 112 of lclmessageglue.pas$00000001000FBEE8 line 2515 of win32/win32callback.inc$00000001000FC6BC line 2677 of win32/win32callback.inc$00000001001AEAFF line 105 of win32/win32pagecontrol.inc$00007FFE5F37CA66$0000000000090B9C
09:19:45.342     VALUE: A String = sadjfgadsfbmsandfb
09:19:45.346     VALUE: AInteger = 4957
09:19:45.349     VALUE: A Boolean = True
09:19:45.352   <<EXIT METHOD: TButton(butSubLog).SubLogClick
09:19:45.354   INFO: This Text Should be logged
09:19:45.356 <<EXIT METHOD: TButton(butTestLog).TestLogClick