LazLogger / DebugLn

Lazarus permet d'utiliser au sein de son application un systéme de log grâce aux unités LazLogger, LazLoggerBase et LazLoggerDummy.

Il peut être utile d'intercepter la procédure DebugLn pour l'afficher au sein de l'application

   TForm1 = class(TForm)
      GBContenor: TGroupBox;
      FHEdit: TTIC_HexEditor;
	  GroupBox1: TGroupBox;
	  MMDbg: TMemo;
	  SynEdit1: TSynEdit;
	  procedure FormCreate(Sender: TObject);
   private
      procedure ReceptDebugLn(Sender: TObject; S: string; var Handled: Boolean);
   public
 
 
   end;
 
var
   Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   FHEdit:=TTIC_HexEditor.create(self);
   FHEdit.parent:=GBContenor;
   FHEdit.Align:=alClient;
   DebugLogger.OnDebugLn:=@ReceptDebugLn;
end;
 
procedure TForm1.ReceptDebugLn(Sender: TObject; S: string; var Handled: Boolean
	   );
begin
  MMDbg.Lines.Add(S);
end;

• https://wiki.lazarus.freepascal.org/LazLogger