Logical no IB

Delphi

17/07/2005

No parodox usava um campo Logical, eu usava para fazer login no meu programa e para de quais menús ficariam habilitados, más no IB parece que num tem isso..veja como uso a função..


   _FormPrincipal.Menu31.enabled:=DM1.BD_PERMISSOESGS_APC_MENU31.value;


aí dá este erro...


[Error] Unit4.pas(97): Incompatible types: ´Boolean´ and ´Double´


ou uma segunda alternativa é bem vinda...t+


Gigatel

Gigatel

Curtidas 0

Respostas

Marcosmp

Marcosmp

17/07/2005

Gigatel

No banco de dados do IB não existe Boolean ou Logical..
Você dever usar um campo integer dessa maneira:

0 = False;
1 = True;

Beleza?


T+


GOSTEI 0
Japa

Japa

17/07/2005

Esses tempos tive procurando pela mesma resposta sua... sobre um campo boolean no interbase mas um colega nosso me respondeu que não tem esse tipo de campo.. por isso criar outra alternativa como um char recebendo apenas ´V´ e ´F´ ou inteiro como 1 e 2..
Assim para sair do seu problema faça
if DM1.BD_PERMISSOESGS_APC_MENU31.value=1 then _FormPrincipal.Menu31.enabled:= true else _FormPrincipal.Menu31.enabled:= false;


Boa sorte amizade


GOSTEI 0
Japa

Japa

17/07/2005

Opa errei... era 0 e 1 que queria falar... foi mal amizade...
hehehe


GOSTEI 0
Gigatel

Gigatel

17/07/2005

Valeu..foi boa mesmo...t+


GOSTEI 0
POSTAR