Delphi dicas

Excluir arquivo entre 2 datas

Tabela.Filter := '(Vencimento >=' +QuotEdStr(MEPeriodo1.Text) +

') and (Vencimento <='+QuotEdStr(MEPeriodo2.Text)+')';

Tabela.First;

While Not Tabela.Eof do

begin

        If (tabelaVencimento.AsDateTime >= StrToDate(MEPeriodo1.Text)) and tabelaVencimento.AsDateTime <= StrToDate(MEPeriodo2.Text)) then

        Tabela.Delete;

end;

por : Luiz Ribeiro De Morais Filho