Delphi #IF (DEBUG) equivalente?

Question

¿Hay un equivalente Delphi de la directiva del compilador C# #if (DEBUG)?

Answer 1

Utilice esta:

{$IFDEF DEBUG} 
... 
{$ENDIF} 

Answer 2

Aparte de lo lassevk dicho, también puede utilizar algunos otros métodos de compilador-evaluación (desde Delphi 6, creo):

{$IF NOT DECLARED(SOME_SYMBOL)} 
    // Mind you : The NOT above is optional 
{$ELSE} 
{$IFEND} 

Para comprobar si el compilador tiene esta característica, use:

{$IFDEF CONDITIONALEXPRESSIONS} 

Existen varios usos para esto.

Por ejemplo, puede verificar la versión del RTL; De la ayuda de Delphi:

Se puede utilizar en RTLVersion $ SI expresiones para probar el tiempo de ejecución biblioteca de nivel de versión independiente del nivel de versión del compilador.
Ejemplo: {$ SI RTLVersion> = 16.2} {... $ IfEnd}

Además, la versión del compilador en sí se puede comprobar, de nuevo a partir del código: se asigna

CompilerVersion un valor por compilador cuando la unidad del sistema es compilado. Indica el nivel de revisión del compilador/sintaxis del lenguaje , que puede avanzar independientemente de la RTLVersion. CompilerVersion se puede probar en expresiones $ IF y se debe usar en lugar de probar la definición condicional de VERxxx . Siempre pruebe para mayor o menor que un nivel de revisión conocido. No es buena idea probar para un nivel de revisión específico.

Otra cosa que hago con regularidad, es definir un símbolo cuando no está definido todavía (agradable para visión de compatibilidad), así:

{$IF NOT DECLARED(UTF8String)} 
type 
    UTF8String = type AnsiString; 
{$IFEND} 

Espero que esto ayude!

Answer 3

Estas directivas de control están disponibles:

{$IFDEF} 
{$ELSE} 
{$ENDIF} 
{$IFNDEF} //if *not* defined 

y que pueden ser utilizados como se muestra aquí:

procedure TfrmMain.Button1Click(Sender: TObject); 
begin 
    {$IFDEF MY_CONDITIONAL} 
    ShowMessage('my conditional IS defined!'); 
    {$ELSE} 
    ShowMessage('my conditional is NOT defined!'); 
    {$ENDIF} 

    {$IFNDEF MY_CONDITIONAL} 
    ShowMessage('My conditional is explicitly NOT defined'); 
    {$ENDIF} 
end; 

Answer 4

DebugHook se establece si una aplicación se ejecuta en el depurador IDE. No es lo mismo que una directiva de compilación, pero sigue siendo bastante útil. Por ejemplo:

ReportMemoryLeaksOnShutdown := DebugHook <> 0; // show memory leaks when debugging