o que esta errado neste if?:

Delphi

21/04/2011

Pessoal porque faço essa if e nao da certo?

if (F_principal.label1.caption)=(dm.qryclientedatanascimento.Value) then
 showmessage('Hoje tem bolo');

label1 e data sistema que recebe diames 2104  e dm.qryclientedatanascimento.Value e o campo do meu banco de dados que e justamente o dia de aniversario que fiz o teste tambem com 2104 porem nada acontece...

ambos sao campos texto

Access....
Adilsonsilva

Adilsonsilva

Curtidas 0

Respostas

Rafael Pimenta

Rafael Pimenta

21/04/2011

Pessoal porque faço essa if e nao da certo?

if (F_principal.label1.caption)=(dm.qryclientedatanascimento.Value) then
 showmessage('Hoje tem bolo');

label1 e data sistema que recebe diames 2104  e dm.qryclientedatanascimento.Value e o campo do meu banco de dados que e justamente o dia de aniversario que fiz o teste tambem com 2104 porem nada acontece...

ambos sao campos texto

Access....


Colega, como você falou que o seu 'qryclientedatanascimento' é do tipo 'TStringField'(então o 'Value' irá retornar uma 'string' assim como a propriedade 'caption' do 'label1' que retornará um 'TCaption' que é do tipo 'string') o erro então não é de compilação e sim de lógica. Desta forma você deve verificar se os valores não estão com espaços.
Ex.: '2104   '

Use a função Trim(string) nos dois campos que deve resolver.

if Trim(F_principal.label1.caption) = Trim(dm.qryclientedatanascimento.Value) then
  showmessage('Hoje tem bolo');





GOSTEI 0
José

José

21/04/2011

Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.
GOSTEI 0
POSTAR