Fórum Só falta isso me ajudar #153674

10/04/2003

0

Olá, Delphimaniacos,

Eu criei uma array, da seguinte maneira:
[b:346e64f0aa] MT: array[1..50] of string;[/b:346e64f0aa]

E atribui valores de um campo para ela:
[b:346e64f0aa] MT[1]:=dm.Tb_SenhaRNC.Value;
mt[2]:=dm.Tb_Senhaacompanhamento.Value;[/b:346e64f0aa]

Até aqui o código não esta dano erro, mas se eu tento fazer um if da seguinte maneira dar erro:

[b:346e64f0aa]If MT[1] = false then
Begin
Disciplina1.Enabled:=false;
End;[/b:346e64f0aa]

A mensagem de erro é Incompatible types: ´String´ and ´Boolean´ como que eu faço para fazer este if sem erro??

Desde jah agradeço!!!!
[/b]


Coppola

Coppola

Responder

Posts

10/04/2003

Marcelo.c

Bem, pelo que entendi, você está tentando colocar um valor Boleano dentro de uma variável String.

Talvez se você trocar [b:83631c9d22]of String[/b:83631c9d22] por [b:83631c9d22]of Boolean[/b:83631c9d22] resolva.


Responder

Gostei + 0

10/04/2003

Anonymous

Se reparar no código que escreveu, vai perceber uma pequena ´khdinha´

If MT[1] = false then
Begin
Disciplina1.Enabled:=false;
End;

Observe que a 1.a linha deve ser

if MT[1]<>MT[2] then

ou seja se as senhas são diferentes, então faz o que você quer.

A mensagem de erro se dá porque MT[1] é uma string ( a senha RNC) e no if você a está comparando com False que é um valor Booleano.

Boa sorte !


Responder

Gostei + 0

10/04/2003

Julienmurray

Antes de Mais nada, qual seria seu objetivo com esta array?

:twisted: Julien ´Murray´ :twisted:


Responder

Gostei + 0

10/04/2003

E_gama

Deixa-me ver se entendí a lógica:

If MT[1] = false then
Begin
Disciplina1.Enabled:=false;
End;

Acredito que voce queira que, se o conteudo da posicao [1] do array for diferente de ´branco´, vc desabilita o componente ´disciplina1´.

Se for isso, substitua todas as linhas acima por:

[b:5bd6db6388]Disciplina1.Enabled := (MT[1] <> ´´);[/b:5bd6db6388]


Responder

Gostei + 0

10/04/2003

Coppola

Pegar o valor dos campos da tabela (sql) e comporar se é True ou False


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar