porque no puedo ver el valor de las variables

[[oscarac]]

buenas noches

porque sera que no puedo ver el valor de las variables cuando coloco el cursor encima de la variable
me aparece el mensaje de Inaccessible value

ya probe deshabilitando la opcion Optimizacion en Project options y nada


alguna idea?

[ecfisa]

Hola oscarac.

Tools -> Editor Options -> Pestaña Code Insight y seleccioná: ToolTip symbol insight.

Al menos así es en Delphi 7.

Saludos.

[[oscarac]]

Si estaba marcado

pero ya esta funcionando cuando hice una correccion

Tenia esta Variable que armaba la cadena

Código Delphi [-]
StrSql := 'Select T.empresa, T.Cos, COS.Descripcion, C.TipoConsumo, C.Aux, T.Descl As Trabajador, Sum (D.PT) As Total,  ' +
                'Sum(Case When D.Subvencion = 1 then d.Subvencion else 0 end) As Cantidad from ' +
                'tblConsumoC C ' +
                'Left Join TblConsumoD D on C.TDC + C.DOC = D.TDC + D.DOC ' +
                'Left Join tblTrabajador T on C.Aux = T.KOD ' +
                'Left Join tblCCosto COS on T.COS = Cos.CCOSto ' +
                ' Where C.STS <> ' + QuotedStr('A') + ' and C.F_DOC Between ' + QuotedStr(FormatDateTime('DD/MM/YYYY', dtFechaIni.Date)) + ' and ' +
                QuotedStr(FormatDateTime('DD/MM/YYYY', dtFechaFin.Date)) + ' and TipoConsumo = ' + QuotedStr('K') +
                iif (edtTrabajador.Text = '', '', ' and C.AUX = ' + QuotedStr(edtTrabajador.text)) +
                ' and T.Empresa = ' + QuotedStr(IntToStr(rgEmpresa.itemindex)) +
                ' Group by T.empresa, T.Cos, Cos.Descripcion, C.TipoConsumo, C.Aux, T.Descl ' +
                ' order by T.Empresa, T.COS, T.Descl';

y cuando lo modifique por esta cadena funciono y ya pude ver el valor de la variable

Código Delphi [-]
StrSql := 'Select T.empresa, T.Cos, COS.Descripcion, C.TipoConsumo, C.Aux, T.Descl As Trabajador, Sum (D.PT) As Total,  ' +
                'Sum(Case When D.Subvencion = 1 then d.Subvencion else 0 end) As Cantidad from ' +
                'tblConsumoC C ' +
                'Left Join TblConsumoD D on C.TDC + C.DOC = D.TDC + D.DOC ' +
                'Left Join tblTrabajador T on C.Aux = T.KOD ' +
                'Left Join tblCCosto COS on T.COS = Cos.CCOSto ' +
                ' Where Isnull(C.STS, ' + QuotedStr('') + ') <> ' + QuotedStr('A') + ' and C.F_DOC Between ' + QuotedStr(FormatDateTime('DD/MM/YYYY', dtFechaIni.Date)) + ' and ' +
                QuotedStr(FormatDateTime('DD/MM/YYYY', dtFechaFin.Date)) + ' and TipoConsumo = ' + QuotedStr('K') +
                iif (edtTrabajador.Text = '', '', ' and C.AUX = ' + QuotedStr(edtTrabajador.text)) +
                ' and T.Empresa = ' + QuotedStr(IntToStr(rgEmpresa.itemindex)) +
                ' Group by T.empresa, T.Cos, Cos.Descripcion, C.TipoConsumo, C.Aux, T.Descl ' +
                ' order by T.Empresa, T.COS, T.Descl';

porque el campo C.STS tiene valores Null

podria ser que si delphi "interpreta" que un campo tiene valores null no muestra la cadena resultante? loco no?

[ecfisa]

Hola.

Copié y pegué el código que te daba problemas y a Delphi 7 no parece afectarlo. Pero puede ser que versiones superiores evaluen el valor y no muestre
el hint si es nulo...

Saludos.

[[oscarac]]

estoy usando Delphi 7

[ecfisa]

Para salir de dudas usé variables que sé positivamente tienen valores nulos y no pude obtener el mensaje 'Inaccessible value' , pero por supuesto no puedo reproducir todas las posibles situaciónes.

De lo que sí estoy seguro es que el mostrado de los hints se activa o desactiva por medio de ToolTip symbol insight.


Saludos.