Open Source "Logging Facade" für Pascal auf Github

[Uwe Raabe]

Du kannst so etwas mit inline erreichen. Ohne das DEFINE Log sieht man schon keinen blauen Punkt for dem Log-Aufruf in Main.

Delphi-Quellcode:

unit Unit58;

interface

procedure Log(AText: string); inline;

implementation

{.$DEFINE Log}

procedure Log(AText: string);
begin
  {$IFDEF Log}
  Writeln(AText);
  {$ENDIF}
end;


end.

Delphi-Quellcode:

uses
  Unit58 in 'Unit58.pas';

procedure Main;
begin
  Log('Hallo Welt');
  Writeln('Wie geht''s?');
  Readln;
end;