Verificação no delphi

Delphi

09/05/2017

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

  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

Fábio Martins

Curtidas 0

Melhor post

Robson Morais

Robson Morais

09/05/2017

faz assim;

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.
GOSTEI 1

Mais Respostas

Gutierry Pereira

Gutierry Pereira

09/05/2017

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:
if (Data_V < Data) then
begin
  ShowMessage('A data é menor que a data de hoje.');
  Application.Terminate;
end;
GOSTEI 0
Fábio Martins

Fábio Martins

09/05/2017

faz assim;

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!!!!
GOSTEI 0
POSTAR