Uso de StringGrid

[jlalonso1950]

Buenos dias y Felicidades.
He buscado en el libro de Chapman y sigo barado, más bien encallado en un banco de dudas....

[Casimiro Notevi]

En delphi es más o menos así:

Código Delphi [-]
procedure ...
var
  NewStringGrid: TStringGrid;
begin
  NewStringGrid := TStringGrid.Create(Self);
  try
    NewStringGrid.Assign(OldStringGrid);
    ...
  finally
    NewStringGrid.Free;
  end;
end;

[jlalonso1950]

Implementando tiu sugerencia Casimiro tengo:

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

y el error que me da es:

[C++ Error] Unit1.cpp(98): E2034 Cannot convert 'AnsiString' to 'TPersistent *'
[C++ Error] Unit1.cpp(98): E2342 Type mismatch in parameter 'Source' (wanted 'TPersistent *', got 'AnsiString')
[C++ Error] Unit1.cpp(98): E2109 Not an allowed type

[Casimiro Notevi]

Es que no tiene nada que ver tu código con el ejemplo que he puesto.
En mi ejemplo estás asignando un stringgrid a otro stringgrid.
En tu código estás intentando asignar celdas, mediante un bucle.
En tu caso no hay que usar assign.

Será más o menos así:

for (i=1;i<=columnamayor;i++)
  stringgrid3->cells[i][0]=stringgrid1->cells[i][0];

[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 Notevi]

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