Eliminar un registro de DBGRid

[ecfisa]

Hola.

A ver.... Si DBGrid1 está vinculado a Query1 no se puede hacer de la forma anterior ya que al llamar al método Close() se cierra la consulta que alimenta a DBGrid1 y al referenciar a Fields[x] se elevaría una excepción.

Entonces, hay que salvar el valor del campo previamente al cerrado:

{
  Variant aux = DBGrid1->Fields[0]->Value; // resguardar valor

  Query1->Close();
  Query1->SQL->Text = "DELETE FROM GASTO WHERE Fecha = :PVALUE";
  Query1->ParamByName("PVALUE")->Value = aux;
  Query1->ExecSQL();
  ...
}

Si el caso fuera otro, sería bueno que explicaras con que consulta o dataset está vinculado el DBGrid y el código completo de la consulta.

Saludos