(Delphi) Define global flag?

[iChallengeYou]

First a happy new year

 

So I want to define a global flag which can be used everywhere in the project.

So in example i want something like this:

isUnpackMe = false;

Button1.Click()

{

    if (isUnpackMe)

    {

        ShowMessgae('This is an unpackme');

    }

}

So i don't want to declare isUnpackMe as an variabele but want to define it like the pre-defined {$IFDEF CPUX86}.

 

Does anyone know how to do that?

[Kurapica]

http://stackoverflow.com/questions/5774598/declare-public-global-variable-in-delphi

[mrexodia]

I think this is what you mean:

var  text : string;begin  // Set our code into test mode  {$Define TESTMODE}  text := 'We are in test mode';  // Display the value of text if we are in test mode  {$IfDef TESTMODE}  ShowMessage('text = '+text);  {$EndIf}  // Switch off test mode  {$UnDef TESTMODE}  text := 'We are out of test mode';  // Display the value of text if we are in test mode  {$IfDef TESTMODE}  ShowMessage('text = '+text);  {$EndIf}end;

Source:

http://www.delphibasics.co.uk/RTL.asp?Name=$Define

[iChallengeYou]

Exactly! Thanks Mr.exodia

[simple]

You can also use M4 macros for a bit more functionality. Always wondered why Delphi has no preprocessor..