¿Se rompen las expresiones condicionales dentro de los paquetes?

Question

Considere el siguiente fragmento:

requires 
    designide, 
    rtl, 
    vcl, 
    {$IF RTLVersion < 19.0}   // E2026 Constant expression expected 
    //{$IF CompilerVersion = 22.0}  // same as above 
    vcljpg; 
    {$ELSE} 
    vclimg; 
    {$IFEND} 

Parece ser absolutamente sintácticamente correcta. Sin embargo, el compilador se ahoga e informa Constant expression expected. ¿Qué pasa realmente aquí?

Técnico: actualmente probado solo en XE (15.0.3953.35171).

Por supuesto, las sugerencias de soluciones también son bienvenidas.

Answer 1

me encontré con el mismo problema en el pasado, incluso con Delphi 2007. Como solución alternativa, utilizo un archivo inc con los define condicionales y luego usar {$IFDEF} en lugar de {$IF}

algo así como lo que

{$I MyDefines.INC} 


requires 
    designide, 
    rtl, 
    vcl, 
{$IFDEF DELPHI_XE_UP} //the DELPHI_XE_UP is defineed inside of MyDefines.INC 
    uNewlib; 
{$ELSE} 
    uOldLib; 
{$ENDIF} 

Answer 2

Estoy convencido de lo que acabo de encontrar la causa. Considere lo siguiente:

{$IF not Declared(RTLVersion)} 
{$MESSAGE WARN 'There is no RTL'} 
{$IFEND} 
{$IF not Declared(CompilerVersion)} 
{$MESSAGE WARN 'nor are compiler intrinsics at all'} 
{$IFEND} 
{$IF not Declared(System)} 
{$MESSAGE ERROR 'Because package not uses System implicitly'} 
{$IFEND} 

Por lo tanto, parece ser lo que el compilador se comporta correctamente, pero emite un mensaje bastante engañosa (si no errónea) sobre el símbolo no ser una expresión constante, mientras que el símbolo en cuestión en realidad es no declarada !

Answer 3

package módulos son diferentes de los módulos program y library. No contienen código ejecutable y no puedes use unidades. Por lo tanto, los símbolos como RTLVersion simplemente no son visibles desde un archivo de paquete. Su única opción es usar $IFDEF.