Fórum Editar StringGrid #613088

 with CDS, StringGrid1 do
 begin
  for i := 1 to Pred(RowCount) do
  begin
  Insert;
  FieldByName('ID').Value:= DBEdit1.Text;
  FieldByName('DESCRICAO').AsString := Cells[0,i];
  FieldByName('DOCUMENTO').AsString := Cells[1,i];
  FieldByName('AREA').AsString := Cells[2,i];
  FieldByName('VALOR').AsString := Cells[3,i];
  Post;
  end;
 end;

CDSRecuperaGrid.Close;
CDSRecuperaGrid.ParamByName('pid').AsInteger:= StrToIntDef(DBEdit1.Text, 0);
CDSRecuperaGrid.Open;
 if CDSRecuperaGrid.RecordCount > 0 then
 begin
  for i := 1 to CDSRecuperaGrid.RecordCount do
  begin
  StringGrid1.RowCount:= CDSRecuperaGrid.RecordCount + 1;
  StringGrid1.Cells[0,i]:= CDSRecuperaGrid.FieldByName('DESCRICAO').AsString;
  StringGrid1.Cells[1,i]:= CDSRecuperaGrid.FieldByName('DOCUMENTO').AsString;
  StringGrid1.Cells[2,i]:= CDSRecuperaGrid.FieldByName('AREA').AsString;
  StringGrid1.Cells[3,i]:= CDSRecuperaGrid.FieldByName('VALOR').AsString;
  SBnew.Enabled:= false;
  CDSRecuperaGrid.Next;
  end;
 end
  else
 begin
 limpaGrid(StringGrid1);
 SBnew.Enabled:= true;
 end;