could not convert variant of type (null) into type (string)

[ecfisa]

Hola davidmedina29

Empezado por davidmedina29

Hola ecfisa gracias por tu pronta respuesta

aplique el modo que me indicas en tu respuesta pero me sale este error

LIST INDEX OUT OF BOUNDS(1)

gracias!

Si, ahora veo que el índice que usas en tu código es 0, debí copiar/pegar en lugar de escribír, disculpas

Empezado por davidmedina29

...
Si puse los fields en 0 pero el problema es que no me pone el '1' en el edit.

Es que si el campo tiene el valor NULL (nada) nunca va a ponerte el valor '1' en el Edit, sino que va a dar un error cuando intentes convertirlo a string.

Y si usas la evaluación que te indiqué:

Código Delphi [-]
if not (Q_Auxi.IsEmpty or Q_Auxi.Fields.Fields[0].IsNull) then

se comprueba que la consulta no esté vacía Y que el campo no sea NULL. De ser así, asígna el valor al Edit, y de modo contrario no hace nada.

Podes modificar la última acción (hacer nada), por ejemplo:

Código Delphi [-]
  if not Q_Auxi.IsEmpty then
  begin
    if not Q_Auxi.Fields.Fields[0].IsNull then       
      cxTextEdit1.Text := Q_Auxi.Fields.Fields[0].Value
    else 
      cxTextEdit1.Text := 'Value is NULL'; // (o el texto que desees)
  end
  else
    cxTextEdit1.Text := 'No se encontraron resultados'

Saludos

[davidmedina29]

Muchas gracias ecfisa!!

ya quedo

Código Delphi [-]
    if not Q_Auxi.IsEmpty then
    begin
    if not Q_Auxi.Fields.Fields[0].IsNull then
      cxTextEdit1.Text := Q_Auxi.Fields.Fields[0].Value
    else
      cxTextEdit1.Text := '1';
    end

Saludos

[[AzidRain]]

Otra forma haciendo que el query no nos regreso nulos:

Código Delphi [-]

  _Auxi.SQL.Add('select coalesce(MAX(Periodo)+1,0) from CA_PERIODOSINGRESO where Ejercicio=:Ejercicio');
   Q_Auxi.ParamByName('Ejercicio').Value:=cxComboBox1.Text;
   Q_Auxi.Open;
   if not Q_Auxi.IsEmpty and Q_Auxi.Fields.Fields[0].Value>0 then
    cxTextEdit1.Text:=Q_Auxi.Fields.Fields[0].Value;
  end

[Delfino]

Es utili tambien en caso de variantes reinicializar una variable a false :

Código Delphi [-]
NullStrictConvert := False;