Duda con StringGrid en c++

[dmartinezn]

Saludos amigos
En un StringGrid muestro los datos que tengo almacenado en una BD, quisiera saber de que forma pudiera eliminar uno de esos datos mostrados con solo darle doble clic encima a lo que quiero eliminar, la idea que tengo es determinar en que fila y columna estoy posicionado y tomar el valor que ahí se encuentra, pero ese detalle no he logrado hacerlo.
Mediante un DBGrid solucione el problema pero me quede con la duda si mediante un StringGrid lo pudiera hacer.
Saludos a todos y gracias por su tiempo.

[[escafandra]]

Prueba esto:

void __fastcall TForm1::StringGrid1DblClick(TObject *Sender)
{
  StringGrid1->Cells[StringGrid1->MouseCoord(P.x, P.y).X][StringGrid1->MouseCoord(P.x, P.y).X] = "";
}

Saludos.

[ecfisa]

Hola dmartinezn.

No está muy en claro en tu mensaje si lo que queres borrar es el contenido de la celda o el contenido del registro en el DataSet. Si es el primer caso, el amigo escafandra ya te ha dado la solución, si es el segundo podrías hacer:

/* Pasar registros del DataSet al StringGrid */
void __fastcall TForm1::CargarGridClick(TObject *Sender) {
TStringGrid *Grd = static_cast<TStringGrid*> (StringGrid1);
int f = Grd->FixedRows;
int i;

  DataSet->First();
  while(!DataSet->Eof) {
    for(i=0;i < DataSet->FieldCount; i++) {
      Grd->Objects[i][f] = DataSet->Fields->Fields[i];
      Grd->Cells[i][f] = DataSet->Fields->Fields[i]->AsString;
    };
    DataSet->Next();
    Grd->RowCount = Grd->RowCount +1;
    f++;
  }
  Grd->RowCount = f;
}

/* Eliminar el registro del DataSet, eliminar la fila del StringGrid */
void __fastcall TForm1::StringGrid1DblClick(TObject *Sender) {
TStringGrid *Grd = static_cast<TStringGrid*>(Sender);
TLocateOptions LO;
TField *F = static_cast<TField*>(Grd->Objects[Grd->Col][Grd->Row]);

  if (Grd->Row >= Grd->FixedRows) {
    DataSet->Locate(F->FieldName,Grd->Cells[Grd->Col][Grd->Row], LO);
    DataSet->Delete();
    for(int i = Grd->Row; i< (Grd->RowCount-1); i++)
      Grd->Rows[i]->Assign(Grd->Rows[i+1]);
    if(Grd->RowCount > (Grd->FixedRows+1))
      Grd->RowCount = (Grd->RowCount - 1);
    else
      Grd->Rows[Grd->FixedRows]->Clear();
  }
}

Pero en este caso me parece mas sencillo usar un TDBGrid...

Saludos.

[dmartinezn]

Gracias a los dos por contestar.
Lo que quería lograr era borrar el contenido del registro en el DataSet, ese ejemplo que me puso me ha servido de mucho. Aunque entiendo el ejemplo que me puso el amigo escafandra no logro que me funcione, primero me sale el error: Undefined symbol 'P', una ves que declaro a P me sale otro error: Structure required on left side of . or.
Quisiera lograr almacenar el valor que se encuentra en una fila columna en la que estoy posicionado para luego trabajar con el.

[ecfisa]

Hola dmartinezn.

Otra forma para borrar el contenido de la celda es:

void __fastcall TForm1::StringGrid1DblClick(TObject *Sender)
{
  StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row]= "";
}

Quisiera lograr almacenar el valor que se encuentra en una fila columna en la que estoy posicionado para luego trabajar con el.

Esta parte no la entiendo bién. Si te estás refiriendo a la carga de los valores del TDataSet en el TStringGrid para trabajar con ellos, el código 'CargarGridClick' de mi mensaje anterior lo hace.

En cambio si lo que buscas es guardar los valores del TStringGrid en el TDataSet, sería la operación inversa:

void __fastcall TForm1::GuardarClick(TObject *Sender){
TStringGrid *G = static_cast<TStringGrid*>(StringGrid1);
int f = G->FixedRows;
int i;

  DataSet->First();
  while(!DataSet->Eof) {
    DataSet->Edit();
    for(i=0; i < G->ColCount; i++)
      DataSet->Fields->Fields[i]->Value = G->Cells[i][f];
    DataSet->Next();
    G->RowCount = G->RowCount + 1;
    f++;
  }
}

Saludos.