Uso de StringGrid

[jlalonso1950]

 
for (i=1;i <=StrToInt(Edit2->Text);i++){
  StringGrid3->Cells[i][0]=StringGrid1->Cells[i][0];
}

No da error, pero no carga el 3 con la información del 1

Le voy a pasar un correo desde mi correo personal, con las pantallas, que hacen y a ver si asi me puede ayudar mejor

[ecfisa]

Hola.

Suponiendo que las dimensiones de los StringGrids son iguales, si deseas copiar el contenido de uno a otro:

Código PHP:

void copySG(TStringGrid *source, TStringGrid *target)
{
  for(int r = source->FixedRows; r < source->RowCount; r++)
    target->Rows[r]->AddStrings(source->Rows[r]);
}

// Ejemplo de uso:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  copySG(StringGrid1, StringGrid3);
} 


Si deseas sumar dos TStringGrid y dejar el resultado en un tercero:

Código PHP:

void sumarSG(TStringGrid *s1, TStringGrid *s2, TStringGrid *s3)
{
  // (se supone que s1 y s2 contienen datos numéricos válidos)
  for(int r = s1->FixedRows; r < s1->RowCount; r++)
    for(int c = s1->FixedCols; c < s1->ColCount; c++)
      s3->Cells[c][r] = s1->Cells[c][r].ToDouble() + s2->Cells[c][r].ToDouble();
}

// Ejemplo de uso:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  sumarSG(StringGrid1, StringGrid2, StringGrid3);
} 


Son ejemplos orientativos, todo depende de lo que desees hacer y como tengas distribuida la información en los StringGrids...

Saludos

[Casimiro Noteví]

Empezado por jlalonso1950

Le voy a pasar un correo desde mi correo personal, con las pantallas, que hacen y a ver si asi me puede ayudar mejor

Nuestra guía de estilo, punto 14.

[jlalonso1950]

disculpas por mis metidas de pie..... pero con lo último que me dijo Casimiro, me puse a pensar y el StringGrid, no es más que un arreglo bidimensional, por lo que lleve a cabo el uso de esto, por lo que ocasionalmente llegue a lo que me recomendo después Ecfisa, Gracias, me sacaron de un buen agujero negro, ya puedo presentar mi clase con un inicio bien fundamentado

[jlalonso1950]

Hoy me trae un nuevo problema, al cual no he encontrado respuesta navegando por la página, y es como puedo comparar dos celdas de un mismo StringGrid.He tratado de usar ->Value= pero no me da resultados algunos
HELP

[ecfisa]

Hola.

Un ejemplo:

Código Delphi [-]
...
 if (StringGrid1.Cells[0,0] = StringGrid1.Cells[1,0]) and 
    not(StringGrid1.Cells[0,0] <> StringGrid1.Cells[2,0]) then
      ShowMessage('Las celdas [0,0], [1,0] y [2,0] tienen igual contenido');
...

Saludos

[arturoio]

Si no me equivoco para rescatar el valor de una celda bastaría con esto

variable = stringGrid->Cells[1][1]