Foros Club Delphi - Problemas con una condición IF

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Problemas con una condición IF (https://www.clubdelphi.com/foros/showthread.php?t=86099)

negrokau

17-06-2014 16:06:54

Problemas con una condición IF

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:

Código Delphi [-] 

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

17-06-2014 16:23:54

Hola

Y si compruebas directamente el valor del campo?

Código Delphi [-]IF NOT (Q_DET_APERTURA.Fieldbyname('TIPO').Asstring='CAJA') THEN
BEGIN 
SHOWMESSAGE('NO SE PUEDE EDITAR'); 
END;

Bueno es solo una sugerencia

Saludos

negrokau

17-06-2014 17:38:57

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

17-06-2014 17:41:49

Prueba con Trim.

Código Delphi [-]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

17-06-2014 17:44:46

Cita:

Empezado por juanelo (Mensaje 477927)

Prueba con Trim.

Código Delphi [-]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:

Código Delphi [-]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

17-06-2014 18:21:56

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

Casimiro Notevi

17-06-2014 19:41:36

Código Delphi [-]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.

La franja horaria es GMT +2. Ahora son las 02:08:58.