Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   porque no puedo ver el valor de las variables (https://www.clubdelphi.com/foros/showthread.php?t=74180)

oscarac 03-06-2011 04:04:09

porque no puedo ver el valor de las variables
 
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:confused::confused:

ya probe deshabilitando la opcion Optimizacion en Project options y nada


alguna idea?

ecfisa 03-06-2011 04:32:06

Hola oscarac.

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

Al menos así es en Delphi 7.

Saludos.

oscarac 03-06-2011 04:50:40

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?:eek::eek::eek:

ecfisa 03-06-2011 05:05:17

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 03-06-2011 05:07:44

estoy usando Delphi 7

ecfisa 03-06-2011 06:18:43

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.


La franja horaria es GMT +2. Ahora son las 10:45:56.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi