Ir ao conteúdo
  • Cadastre-se

Expirar aplicação. Alguém pode me ajudar com esse código?


mm_edilson

Posts recomendados

Amigos, estou tentando criar uma forma de expirar uma aplicação. Algo simples, só para aprender mesmo.

Fiz assim: Criei uma tabela no Banco de dados para receber a data.

Depois inseri um edit, um dbedit, e um datatimepicker, ligados a uma adotable.

Criei o código abaixo:


procedure TfrmAtivacao.FormShow(Sender: TObject);
Var
Data : TDate;
begin
Data := Now;
if DbEdit2.Text = '' then
begin
DbNavigator2.BtnClick(NbEdit);
DbEdit2.Text := DatetoStr(Date);
DbNavigator2.BtnClick(NbPost);
end
else
DateTimePicker1.Date := StrToDate(DbEdit2.Text);
end;

If DateTimePicker1.Date < Data -15 then
ShowMessage('O Período de testes terminou.');
end;

Mas quando rodo, dá erro: "Value assigned to 'Data' never used.

Alguém pode dar uma força?

Abraços.

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...