Variante comparado con evaluación completa

[[Al González]]

¡Hola a todos!

Estoy desarrollando un componente para automatización OLE de Word, basado en TWordApplication, en Delphi 7 Enterprise sin actualizaciones. Durante una prueba de funcionalidad descubrí un incómodo y a la vez interesante problema.

En mi aplicación tengo inactiva la opción de compilación Complete boolean eval (como normalmente se utiliza) y el siguiente bloque de código.

Código Delphi [-]
  With Aplicacion.Selection Do
    If Information [wdWithInTable] And (TablaLista <> Nil) And
    TablaLista.InRange (Tables.Item (1).Range) Then

Si la expresión Variant Information [wdWithInTable] devuelve False, el programa ya no debería evaluar las otras dos expresiones del If. No obstante, si lo hace. ¡Evalúa las tres expresiones! Como es de esperarse, esto genera una excepción con mensaje «El elemento del conjunto solicitado no existe.» porque el programa intenta acceder a una tabla de Word (Aplicacion.Selection.Tables.Item (1)) en un lugar donde no hay ninguna tabla (Aplicacion.Selection.Information [wdWithInTable] devolvió False).

Information [wdWithInTable] realmente devuelve False, eso ya lo corroboré. Y, usando la ventana CPU —Ctrl+Alt+C— del depurador (ya quisieran otros fabricantes lograr un depurador tan magnífico), observé que el programa internamente llama a la función _VarAnd de la unidad Variants. Es evidente que está haciendo una evaluación "And" de variantes, ignorando el estado de la directiva de compilación $BOOLEVAL, la cual está en Off.

La primera solución que encontré fue moldear (hacer type cast) como Boolean la expresión Information [wdWithInTable], quedando el código anterior de esta forma:

Código Delphi [-]
  With Aplicacion.Selection Do
    If Boolean (Information [wdWithInTable]) And (TablaLista <> Nil) And
    TablaLista.InRange (Tables.Item (1).Range) Then

Les agradecería cualquier información que puedan aportar para el mejor manejo de este defecto (¿?) de Delphi.

Atentamente,

Al González.