Buscar por:

Apagando os registros na tabela

Código

Procedure ApagarTodosRegistros(Origem: TDataSet);

begin

  if(MessageDlg('Apagar todos os dados do Banco de Dados?',mtConfirmation, [mbYes,mbNo],0)=mrYes)then

  begin

    with(Origem)do

    begin

      while(RecordCount>0)do

      begin

        Delete;

        MessageDlg('Banco de Dados reiniciado com sucesso!',mtInformation, [mbOk],0);

      end;

      if(RecordCount=0)then

      begin

        MessageDlg('O Banco de Dados está vazio!',mtInformation, [mbOk],0);

      end;

    end;

  end;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

  ApagarTodosRegistros(Table1);

end;