Campo Data

[juniorboll]

Ai galera to com o problema no campo data que é o seguinte se eu digitar a data certo está beleza mas caso eu começe a digitar a data e saio pro proximo campo o programa da um erro e fecha, queria saber como eu posso tratar esse erro para que quando a pessoa começe a digitar ou digite a data errada não feche o programa e sim apareça alguma msg, tipo Você digitpoou a data errada, digite novamente...

[Churc]

tipo

esse campo seria o que um edit? dbedit?

de qualquer forma, no evento OnExit do componente que vai receber a data digitada você fazer

exemplo

var

_date: tdatetime;

begin

try

_date := strtodate(edit1.text);

except

showmessage('A data digitada é inválida!');

edit1.setfocus;

exit;

end;

ou você pode ir direto mesmo sem usar variaveis

try

strtodate(edit1.text);

except

...

abraço

[Micheus]

Lembrando também, que ao fazer validação no evento OnExit, caso haja a possibilidade de o usuário desistir da tela, algo como clicar em um botão de cancelamento, pode ser conveniente verificar se o componente com o foco é este botão e então não executar a validação. Utilizando o código do Churc, ficaria assim:

var
  _date: tdatetime;
begin
  if ActiveControl <> nomebotão then  // *** só aplica validação se for utilizar o conteúdo digitado 
  try
    _date := strtodate(edit1.text);
  except
    showmessage('A data digitada é inválida!');
    edit1.setfocus;
  exit;
end;

[Churc]

boa Micheus ;)

[juniorboll]

Ai tentei do jeito que o chuch falo num deu certo não quando eu começo a digitar a data e aperto tab da pau no programa, ah e eu to usando o dbedit1, vo continuar tentando aqui pelo que você falo...

[Churc]

Tipo, pelo delphi sempre vai dar pau, pois o delphi mesmo você tratando o erro, ou seja, a exceção ele vai sempre mostrar aquela mensagem de erro, tente o seguinte, compile o programa e rode sem ser pelo delphi

abraços

[Churc]

mais simples juniorboll, faz a checagem ao clicar do botão que vai alterar/adicionar o campo, no botão de cadastrar por exemplo.

try

strtodate(dbedit1.text);

except

ShowMessage('data invalida!');

dbedit1.setfocus;

Exit;

end;

por exemplo...

ou melhor ainda, usa máscaras nesse campo, ai não tem como digitar errado

abraços

[juniorboll]

Eu usei o mask no table em data... para poder escrever e num precisar de por __/__/____

vocês que sabem mais programação podem me ajudar no que eu tava pensando, é o seguinte, eu pensei em quando a pessoa começar a escrever e deixar de completar, o programa auto completa para ela, mas como sei que fazer assim seria muito dificil eu pensei em quando ele passar sem estar completa ele jogar a data atual no campo, tem como fazer isso?

[Micheus]

Tipo, pelo delphi sempre vai dar pau, pois o delphi mesmo você tratando o erro, ou seja, a exceção ele vai sempre mostrar aquela mensagem de erro, tente o seguinte, compile o programa e rode sem ser pelo delphi

Churc se estiver utilizando D7 por exemplo, não precisa rodar por fora, basta desabilitar este recurso em Tools->Debugger Options->Language Exceptions e desmarcar Stop on Delphi Exceptions. As vezes utilizo isto e então adiciono break-points. Só não convém mantê-lo desabilitado, já que é um bom recurso de depuração.

...eu pensei em quando a pessoa começar a escrever e deixar de completar, o programa auto completa para ela...

se você fizer, em seu evento, algo do tipo:

- DataDigitada (string) = dbedit1.text menos os espaços em branco existentes no final de text

- DataAtual (string) = DateToStr(Date)

- verificar até onde foi digitada a data no campo DataDigitada, se até a primeira contra-barra ou segunda e daí copiar o que faltou da DataAtual. Acomposição das duas seria atribuida a dbedit1.text.

p.s. não estou podendo fazer o código agora, então se a ideia for útil e algun colega puder ajudar...

[juniorboll]

Eu entendi o que você falou pra fazer, mas eu não consiggo contar os espaços em branco, mas vou continuar tentando aqui se eu conseguir eu posto ai também como faz. valeu...