Como puedo llenar un combobox con informacion desde el StringGrid

[ecfisa]

Hola Henoc.

No especificas si deseas copiar una columna o una fila hacia el ComboBox, por lo tanto te pongo los dos casos:

/* Copiar una columna }
void ColGridToCBox(TStringGrid *SG, TComboBox *CB, int aCol)
{
  for(int r = SG->FixedCols; r < SG->ColCount; r++)
    CB->Items->Add(SG->Cells[aCol][r]);
}

/* Copiar una fila */
void RowGridToCBox(TStringGrid *SG, TComboBox *CB, int aRow)
{
  CB->Items = SG->Rows[aRow];
}

Llamadas ejemplo:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ColGridToCBox(StringGrid1, ComboBox1, 2); /* Copiar la columna 2 */
  RowGridToCBox(StringGrid1, ComboBox1, 1); /* Copiar la fila 1 */
}

Saludos.