Comprobar si un valor es nulo

[[AgustinOrtu]]

En un AND donde encuentra el primer falso ya no chequea más
En un OR, con un sólo verdadero ya alcanza para que sea verdadero

Basicamente

(True) AND (True) AND (True) AND (True) AND (False) = False
(False) AND (True) AND (True) AND (True) AND (True) = False, solo se evalua el primer condicional

(True) OR (True) OR (True) OR (True) OR (False) = True, solo se evalua el primer condicional

Tiene cierto "truco", ya que a pesar de que aca estamos hablando de constantes True/False, muchas veces tenemos funciones que devuelven True o False. Y si bien es un error grave que tengan efectos colaterales, es para tener en cuenta, no se debe asumir que siempre se evaluan todas las condiciones; tambien es para tener en cuenta el orden en que encadenamos condiciones, lo propio es poner lo mas rapido primero y dejar lo pesado para el final

Se puede configurar el compilador para que haga Full Boolean Evaluation

[Neftali [Germán.Estévez]]

No se si alguien lo ha comentado ya, pero ¿no puedes añadir la condición a la SQL, en lugar de tratarlo a posteriori?

Código SQL [-]
 ... AND (LITERAL IS NOT NULL)

[Angel.Matilla]

Empezado por Neftali

... AND (LITERAL IS NOT NULL)

Esa condición no me vale. Fíjate que lo que me interesa es precisamente que salgan los valores nulos para saber que registros están mal grabados y la tabla en la que voy a buscar los literales no está indexada, ni me interesa, ya que es donde se guardan los valores básicos de configuración.

[ecfisa]

Hola.

La situación no me termina de quedar clara... Cuando el valor de la columna LITERAL es NULL, ¿ Deseas que el ítem del CheckListBox incluya algún texto como sugiere la imágen de tu primer mensaje ?

Si no te interpreté mal y es así, creo que lo mas simple es hacerlo con la sugerencia de Casimiro, ejemplo :

Código PHP:

...
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  TIBQuery *qy = static_cast<TIBQuery*>(IBQuery1);

  qy->Close();
  qy->SQL->Clear();
  qy->SQL->Add( "SELECT DISTINCT A.SITUACION," );
  qy->SQL->Add( "COALESCE(UPPER(B.LITERAL), 'NULO') AS LITERAL" );
  qy->SQL->Add( "FROM PERSONA A LEFT JOIN INSTALACION" );
  qy->SQL->Add( "B ON A.SITUACION = B.VALOR ..." );
  ...
  for ( qy->Open(); !qy->Eof; qy->Next() )
    CheckListBox1->Items->Add(qy->FieldByName("LITERAL")->AsString );
  CheckListBox1->Style = lbOwnerDrawFixed;
}

void __fastcall TForm1::CheckListBox1DrawItem(TWinControl *Control,
      int Index, TRect &Rect, TOwnerDrawState State)
{
  TCheckListBox *lb = static_cast<TCheckListBox*>(Control);
  AnsiString str = lb->Items->Strings[Index];

  if ( str == "NULO" ) {
    lb->Canvas->Font->Color = clRed;
    lb->Canvas->Font->Style = TFontStyles() << fsBold << fsUnderline;
  }
  lb->Canvas->FillRect( Rect );
  lb->Canvas->TextOut( Rect.left, Rect.top, str );
} 


Muestra:


Saludos

[Angel.Matilla]

Empezado por ecfisa

La situación no me termina de quedar clara... Cuando el valor de la columna LITERAL es NULL, ¿ Deseas que el ítem del CheckListBox incluya algún texto como sugiere la imágen de tu primer mensaje?

Perdón por explicarme tan mal. Lo que quiero es que cuando haya un valor NULL en la columna literal, al cargar el CheckListBox, se asocie a Desconocida. Más que nada, y lo sabéis, si un usuario del programa ve una casilla sin descripción como en el ejemplo que subí al principio o que la etiqueta ponga NULO como sugieres, tardan 30 segundos en llamarte para preguntarte que es eso de NULO. Lo he solucionado así:

Query->Close();
Query->SQL->Text = "SELECT DISTINCT A.Situacion, "
                   "COALESCE(B.Literal, 'Desconocida') Literal "
                   "FROM Persona A "
                   "LEFT JOIN Instalacion B "
                   "ON A.Situacion = B.Valor AND B.Etiqueta = 'Situacion' "
                   "WHERE A.CodPrv = (SELECT Literal FROM Instalacion WHERE Etiqueta = 'Provincia')";
Query->Open();

bool lPrueba = false;
for (; !fPersona->Query->Eof; fPersona->Query->Next())
{
     if (UpperCase(fPersona->Query->FieldByName("Literal")->AsString) == "DESCONOCIDA")
     {
          if (lPrueba)
               continue;

          lPrueba = true;
     }
     CheckListBox2->Items->Add(fPersona->Query->FieldByName("Literal")->AsString);
}