Fórum Verificação no delphi #581124
09/05/2017
0
Fiz uma verificação para quando o software iniciar verificar a data, se não bater a data fechar o aplicativo, está funcionando certinho, porém se estiver com a data certa também fecha a aplicação, eu queria que ficasse na tela do login, está assim
oq eu faço para fechar somente quando a data estiver a baixo da data de hoje
Data := FormatDateTime('dd/mm/yyyy', Date);
Data_V := '09/05/2017';
if (Data_V < Data) then
ShowMessage('A data é menor que a data de hoje.');
begin
Application.Terminate;
end;oq eu faço para fechar somente quando a data estiver a baixo da data de hoje
Fábio Martins
Curtir tópico
+ 0
Responder
Post mais votado
09/05/2017
faz assim;
o show message está fora do begin e end, ou seja a condição de verificação passa primeiro e depois sempre fecha a aplicação com o Termite....colocando dentro do begin e end ele sempre vai executar se entrar dentro dessa condição.
Data := FormatDateTime('dd/mm/yyyy', Date);
Data_V := '09/05/2017';
if (Data_V < Data) then
begin
ShowMessage('A data é menor que a data de hoje.');
Application.Terminate;
end;
o show message está fora do begin e end, ou seja a condição de verificação passa primeiro e depois sempre fecha a aplicação com o Termite....colocando dentro do begin e end ele sempre vai executar se entrar dentro dessa condição.
Robson Morais
Responder
Gostei + 1
Mais Posts
09/05/2017
Gutierry Pereira
Ao invés de converter a data para string e comprar as strings converta sua data v para date e e compare no formato date.
Outra coisa que seu aplication.Terminate não esta dentro do if, apenas o showMessage se encontra na condição, o bloco begin end depois do show message sempre sera executado.
Se quer exbir a mensagem e executar o terminate só na condição faça assim:
Outra coisa que seu aplication.Terminate não esta dentro do if, apenas o showMessage se encontra na condição, o bloco begin end depois do show message sempre sera executado.
Se quer exbir a mensagem e executar o terminate só na condição faça assim:
if (Data_V < Data) then
begin
ShowMessage('A data é menor que a data de hoje.');
Application.Terminate;
end;
Responder
Gostei + 0
09/05/2017
Fábio Martins
faz assim;
o show message está fora do begin e end, ou seja a condição de verificação passa primeiro e depois sempre fecha a aplicação com o Termite....colocando dentro do begin e end ele sempre vai executar se entrar dentro dessa condição.
Data := FormatDateTime('dd/mm/yyyy', Date);
Data_V := '09/05/2017';
if (Data_V < Data) then
begin
ShowMessage('A data é menor que a data de hoje.');
Application.Terminate;
end;
o show message está fora do begin e end, ou seja a condição de verificação passa primeiro e depois sempre fecha a aplicação com o Termite....colocando dentro do begin e end ele sempre vai executar se entrar dentro dessa condição.
Muito obrigado!!!!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)