[lazarus] Win32 Installer/Lazarus

[Brad Campbell]

At 19:16 20/07/99 -0400, you wrote:
>Baeseman, Cliff wrote:
>> 
>> I really like that idea...
>
>The other cool thing about it is that you can use a different macro name
>in different places or different leaves of code so that when you set
>that macro you only turn on certain debugging.
>
>SYSDEBUG ('xxxxxxx');
>GTKDEBUG ('xxxxxxx');
>USERDEBUG ('xxxxxxx');
>APPDEBUG ('xxxxxxx');
>

Just as an aside..
I use a byte in the debug routine, for a debug level.
This may or may not be worth looking at....
Along with the Macro Idea..
Maybe with IfDefs ?


Program DebugTest;

Const
	DebugLevel = 2;

Procedure PDebug(InLevel : Byte; InString : String);
Begin
If InLevel >= DebugLevel then
	Writeln(InString);
End;

Begin
PDebug(1,'General Debug Message');
PDebug(2,'More Serious Debug Message');
PDebug(100,'Stupidly Verbose Debug Message');
End.


Brad....

"Where do YOU want Microsoft to go today"
"Why pay for a broken OS, when you can get one that works for free ?"

 /"\
 \ /  
  X   ASCII RIBBON CAMPAIGN - AGAINST HTML MAIL
 / \