Saber si el compilador es anterior o posterior a 2009

[Ñuño Martínez]

Tal y como comenté en este hilo sobre si se sigue usando o no Delphi (http://www.clubdelphi.com/foros/showthread.php?t=92619), he jubilado mi vieja copia de Delphi 6 e instalado Tokio Starter edition para conseguir que Allegro funcione con Delphi. Por ahora compila todos los ejemplos, pero varios de ellos mueren entre horribles sufrimientos.

Entre los que funcionan, aquellos que muestran textos no lo hacen correctamente. Investigando, he descubierto que una razón es que desde Delphi 2009 CHAR ya no es un octeto sino dos (sinónimo de WideChar), y sospecho que pasa lo mismo con STRING, que desde entonces es sinónimo WideString.

La solución es simple usando compilación condicional. Un usuario que hizo un intento por su cuenta añadió un "{$IFDEF ISDELPHI2007ANDUP}", para una de las partes, pero no funciona en Tokio. He consultado esta página (http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Compiler_Versions) de la web de Embarcadero, pero mi duda es: ¿tengo que comprobar todas las versiones anteriores a VER200? ¿O hay alguna forma de saberlo sin tener que poner una ristra enorme de "{$IFDEF}"?

Por otro lado, y ya que estoy, ¿hay alguna opción de compilación que haga que STRING sea sinónimo de AnsiString en vez de WideString?

[egostar]

La solución es simple usando compilación condicional. Un usuario que hizo un intento por su cuenta añadió un "{$IFDEF ISDELPHI2007ANDUP}", para una de las partes, pero no funciona en Tokio. He consultado esta página (http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Compiler_Versions) de la web de Embarcadero, pero mi duda es: ¿tengo que comprobar todas las versiones anteriores a VER200? ¿O hay alguna forma de saberlo sin tener que poner una ristra enorme de "{$IFDEF}"?

Por otro lado, y ya que estoy, ¿hay alguna opción de compilación que haga que STRING sea sinónimo de AnsiString en vez de WideString?

Hola Ñuño,

algo así te serviría


{$IFDEF CONDITIONALEXPRESSIONS}
{$IF CompilerVersion >= 17.0}
{$DEFINE HAS_INLINE}
{$IFEND}
{$IF RTLVersion >= 14.0}
{$DEFINE HAS_ERROUTPUT}
{$IFEND}
{$ENDIF}


Saludos

[ecfisa]

Hola.

Otra opción para conocer si la versión actual es menor o superior a Delphi2009 puede ser inspeccionar la constante CompilerVersion.

// uses System;
...
if CompilerVersion < 20 then
ShowMessage('Version menor a Delphi 2009')
else
ShowMessage('Version mayor o igual a Delphi 2009');
...


Saludos :)

[Ñuño Martínez]

Parece que la solución es la directiva CONDITIONALEXPRESSIONS y la constante CompilerVersion, ya que la decisión hay que hacerla ten tiempo de compilación, no de ejecución. Dice la web de embarcadero que la constante CompilerVersion existe desde Delphi 6, así que supongo que CONDITIONALEXPRESSIONS también existe (espero, porque si no, me hará flaco favor).

Gracias a los dos. Os mantendré informados de los progresos, porque necesitaré que alguien lo pruebe en otros Delphi.