(Resolvido) Verificando conteúdo

[lmroot]

Bom dia caros colegas.

No projeto que estou desenvolvendo eu tenho um filtro que compara duas datas (maskeditdata1, maskeditdata2), eu tenho que verificar se esses dois maskedit estão preenchidos como que eu posso fazer isso usando o comando IF?

Obs. A propriedade EditMask está definida como 99/99/9999;1;_

Eu tentei o comando IF da maneira abaixo, mas não deu certo.

Ex. If (trim(mkdata1.text) <> '') Then Begin

comandos.....

end;

Quando eu debugo o código e para nesse IF ele me informa que a propriedade text é = ' / / ', alguém pode me ajudar a corrigir esse problema?

Abraço.

[Jhonas]

O correto é :

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   if MaskEdit1.Text <> '  /  /    ' then
      begin
         // comandos

      end;
end;

abraço

[lmroot]

Valeu Jhonas, funcionou, muito obrigado.

Abraço.

[Micheus]

Obs. A propriedade EditMask está definida como 99/99/9999;1;_

O correto é :

Jhonas, permita-me apenas acrescentar que este correto vale para a máscara que o colega lmroot usou.

Caso ele venha a modificar a máscara para 99/99/99;1,_, já não funcionaria, porque o teste deveria ser com ' / / '. O oposto também seria verdade.

Assim, sendo e partindo do princípio de que sempre será montada a máscara com 2 dígitos para o mês, seria mais "seguro" fazer deste modo:

if Trim(MaskEdit1.Text) <> '/  /' then

Lembrando que mesmo que não esteja vazio, não quer dizer que a data informada seja válida. você deverá tratar a conversão.

Abraços