Fórum Ajuda... Limpar DbGrid... Qual o método? #230210

Boa tarde companheiros....
vejam se podem me ajudar....

No meu sistema tenho uma procedure que limpa todos os componentes do form, edit´s, combos, etc....
Estou precisando implantar nesta procedure a limpeza do dbgrid, mas não sei qual o método para isso. Vejam, o codigo para limpeza dos edit´s etc....

procedure LimpaCampos(FormAtual: TForm);
var
i : integer;
Begin
For i := 0 to FormAtual.ComponentCount - 1 do
begin
{ Edit }
if (FormAtual.Components[i] is TEdit) then
begin
with (FormAtual.Components[i] as TEdit) do
begin
Text := ´´;
end;
end;

{ ComboBox }
if (FormAtual.Components[i] is TComboBox) then
begin
with (FormAtual.Components[i] as TComboBox) do
begin
ItemIndex := -1;
end;
end;
End;




Agora preciso implantar a rotina de limpeza do Dbgrid, então deveria ficar mais ou menos assim:

{ Dbgrid´s}
if (FormAtual.Components[i] is TDbGrid) then
begin
with (FormAtual.Components[i] as TDbGrid) do
Begin
Clear; //Aqui éstá o problema.. Este metodo não existe!!!
End;
end;


O problema é que o método clear não existe. Me falaram para fechar e abrir o dataset do grid, mas fica inviável, pois posso ter mais de um grid num cadastro e para saber qual o dataset que referenciaria o grid que está sendo limpo no momento, ficaria complicado.
O que preciso mesmo é achar o metodo de limpeza do grid.


Agora vejam uma outra lógica utilizada para limpar stringGrid´s que tem uma lógica interessante...


{ Limpando uma linha de cada vez: }
procedure TForm1.Button2Click(Sender: TObject);
var
I: integer;
begin
with StringGrid1 do
for I := 0 to RowCount -1 do
Rows[I].Clear;
end;

Acontece que não sei as propriedades do dbgrid que devo colocar no lugar de RowCount e Rows, não sei qual seria a propriedade indicada no caso do Dbgrid..

Amigos se puderem me ajudar... Ficarei muito grato.
Um grande abraço a todos...

Pablo - Marília/SP