Fórum Deletar automaticamente registros #337067

Cria uma consulta que exclua o registros.
Tipo :
DELETE From Tabela
WHERE Data < :Data

E no evento onCreate do form.
Coloque :

Query.Parameters[0].Value := IncDay(Date,-2);
Query.ExecSql;//Exclui os registros
Tabela.Open;//Abre a tabela

Para essa função IncDay funcionar você tem que declarar a unit DateUtils na sessão Uses do teu form.
Eu acho que isso talvez resolva seu problema.

Obrigado, deu certo.
var SQL: String;
Data: TDate;
Data_string: String;
begin
Query1.Close;
Query1.Sql.Clear;
Data:= IncDay(Date(), -1);
Data_string:= FormatDateTime(´mm/dd/yyyy´, Data);
SQL:= ´DELETE FROM Paradas WHERE data < ´´´ + Data_string + ´´´´;
Query1.SQL.Add(SQL);
Query1.ExecSQL;
Table1.Open;
end;