Como apagar um DBGrid

Delphi

22/02/2014

Olá Pessoal,

Eu já consegui apagar todos os campos como tedit, tdbedit, edtmask. Porém não sei como apagar todos os itens que eu coloquei em um DBGrid. Eu já tentei fechar e abrir mais não deu certo.

Eu estou tentando fazr deste modo
if not dtsItens.DataSet.IsEmpty then
    begin
      dtsItens.DataSet.Delete;
    end;


Ele da certo porém ele só apaga 1 registro no DBGrid como que eu posso fazer um loop dele para apagar todos os itens?

Desde já agradecido!
Edson Vilhalba

Edson Vilhalba

Curtidas 0

Respostas

Maicon Wagner

Maicon Wagner

22/02/2014

Tenta utlilizar o Comando EmptyDataSet. caso voce estiver utilizando CDS
GOSTEI 0
Edson Vilhalba

Edson Vilhalba

22/02/2014

Eu consegui me lembrei que poderia percorrer pelo dataset e fiz desta maneira se alguem precisar está ai o código abaixo:
if TClientDataSet(dtsItens.DataSet).RecordCount > 0 then
    begin
      for I := 0 to TClientDataSet(dtsItens.DataSet).RecordCount -1 do
      begin
        if not dtsItens.DataSet.IsEmpty then
        begin
          dtsItens.DataSet.Delete;
        end;
      end;
    end;
end;
GOSTEI 0
POSTAR