Problemas con una condición IF

[negrokau]

Hola amigos, tengo un incoveniente, que no puedo resolver, a lo mejor es una sonsera, pero ya le di muchas vueltas y no consigo que funcione mi condicion...
Aca les dejo como lo tengo hecho:



EDIT37.Text:=Q_DET_APERTURA.FieldValues['TIPO'];//este campo es tipo varchar y su valor es CAJA

IF NOT (EDIT37.Text='CAJA') THEN
BEGIN
SHOWMESSAGE('NO SE PUEDE EDITAR');
END;



Les agradeceria su ayuda... desde ya muchas gracias....

[Caminante]

Hola

Y si compruebas directamente el valor del campo?


IF NOT (Q_DET_APERTURA.Fieldbyname('TIPO').Asstring='CAJA') THEN
BEGIN
SHOWMESSAGE('NO SE PUEDE EDITAR');
END;

Bueno es solo una sugerencia

Saludos

[negrokau]

Tampoco me funciona...
Si el campo es igual a 'CAJA' no deberia de mostrar el mensaje, pero igual muestra... tendrias alguna otra opcion para este caso?
Otra cosa para que tengan en cuenta, probe con campos de tipo Integer y si funciona, pero con campos tipo varchar no me funcionan...

[juanelo]

Prueba con Trim.

EDIT37.Text:=Q_DET_APERTURA.FieldValues['TIPO'];//este campo es tipo varchar y su valor es CAJA
IF NOT (EDIT37.Text.Trim='CAJA')
THEN BEGIN SHOWMESSAGE('NO SE PUEDE EDITAR');
END;

[Caminante]

Prueba con Trim.

EDIT37.Text:=Q_DET_APERTURA.FieldValues['TIPO'];//este campo es tipo varchar y su valor es CAJA
IF NOT (EDIT37.Text.Trim='CAJA')
THEN BEGIN SHOWMESSAGE('NO SE PUEDE EDITAR');
END;

Creo q deberia ser:

EDIT37.Text:=Q_DET_APERTURA.FieldValues['TIPO'];//este campo es tipo varchar y su valor es CAJA
IF NOT (trim(EDIT37.Text)='CAJA')
THEN BEGIN SHOWMESSAGE('NO SE PUEDE EDITAR');
END;

[negrokau]

Gracias amigos, me funciono con TRIM.....
Desde ya muchas gracias....
Un abrazo....
Saludos......

[Casimiro Notevi]

EDIT37.Text:=Q_DET_APERTURA.FieldValues['TIPO'];//este campo es tipo varchar y su valor es CAJA
Eso es porque ese campo no es varchar.