Grabar en un ClientDataSet en un Form desde un Frame

[Camilo]

Upps. Que pena el olvido.
Uso Firebird 2.5 y Delphi 11.0
Si esta abierto.

[Neftali [Germán.Estévez]]

El problema en estos casos es que ese código que pones (3 líneas) pueden ser erróneas o correctas, dependiendo del resto del proyecto, dependiendo de cómo cree las cosas,... Ese código de por sí, no es erróneo.

Yo te diría que crearas un pequeño proyecto con 2 o 3 frames y un TClientDataset (sin B.D.) donde se reproduzca el error y lo adjuntes al hilo.
De esa forma será mucho más sencillo ayudarte.

En cuanto al error, sólo te puedo decir, ejecuta paso a paso, pon un breakpoint en la primera de las líneas que has puesto y en ese punto comprueba si Form1 o CDS1 están a nil.

[Camilo]

Neftali. Mil gracias por tu interés. La verdad el tema es mucho mas que esto. De hecho esto lo resolví enviando toda la información al frame para gestionar desde allí los datos sin necesidad de "Saltar" de el form a los frames y viceversa.
Le cuento a todos que el tema a plantear realmente es mas complejo y necesito ayuda muy urgente.

Aquí vamos:

tengo la siguiente consulta SQL

Código SQL [-]
SELECT 
   C.Nombre as Criterio_1,
   C.Concepto As Concepto_1,
   C1.Nombre As Criterio_2,
   C1.Concepto As Concepto_2
FROM 
   Criterios_Proyectos R
   INNER JOIN Criterios C ON R.Id_Criterio = C.Id_Criterio
   INNER JOIN Criterios C1 ON R.Id_Criterio <> C1.Id_Criterio AND C.Id_Criterio < C1.Id_Criterio
WHERE 
   R.Id_Proyecto = :Indicador AND
   EXISTS (SELECT 1 FROM Criterios_Proyectos R2 WHERE R2.Id_Criterio = C1.Id_Criterio AND R2.Id_Proyecto = R.Id_Proyecto)
ORDER BY 
   C.Id_Criterio

esta consulta hace combinaciones sin repetir de una tabla llamada Criterios_proyectos. Para nuestro ejemplo en concreto salen 36 combinaciones correspondientes a 9 criterios.
Necesito hacer una matriz con esta consulta. Necesito que en un StrinGrid me salga esa matriz con los datos como a continuación los pongo en la imagen.

El codigo que uso es el siguiente pero me da un error de Rangue Check Error
Ese error no deja avanzar el procedimiento.

Código Delphi [-]
SetLength(matriz, DataModule1.IBQListado.RecordCount, DataModule1.IBQListado.FieldCount);
                  i := 0;
                  while not DataModule1.IBQListado.Eof do
                  begin
                    for j := 0 to DataModule1.IBQListado.FieldCount - 1 do
                      matriz[i][j] := DataModule1.IBQListado.Fields[j].Value;
                    DataModule1.IBQListado.Next;
                    Inc(i);
                  end;
                  fr.StringGrid1.RowCount := DataModule1.IBQListado.RecordCount + 1;
                  fr.StringGrid1.ColCount := DataModule1.IBQListado.FieldCount;
                  for i := 0 to DataModule1.IBQListado.FieldCount - 1 do
                    fr.StringGrid1.Cells[i, 0] := DataModule1.IBQListado.Fields[i].FieldName;
                  for i := 0 to DataModule1.IBQListado.RecordCount - 1 do
                    for j := 0 to DataModule1.IBQListado.FieldCount - 1 do
                      fr.StringGrid1.Cells[j, i + 1] := matriz[i][j];

Por favor es urgente una manito en este tema. Gracias a todos

[Neftali [Germán.Estévez]]

Por el error, alguno de los índices se te está saliendo de rango.
En estos casos siempre puedes ejecutar tu programa paso a paso y detectar en qué punto te está dando el error.

Por otro lado veo que generas una matriz, del Dataset pasas los datos a la matriz (doble array) y luego desde la matriz los pasas al TStringGrid.
¿Porqué no los pasas directamente del TDataset al TStringGrid?
Más sencillo, menos pasos y menos posibilidad de errores.

[Neftali [Germán.Estévez]]

Como he dicho creo que el código anterior se podría simplificar con algo así:

Código Delphi [-]
i := 0;
while not DataModule1.IBQListado.Eof do
begin
for j := 0 to DataModule1.IBQListado.FieldCount - 1 do
    fr.StringGrid1.Cells[j, i + 1] := DataModule1.IBQListado.Fields[j].Value;
    DataModule1.IBQListado.Next;
    Inc(i);
end;
fr.StringGrid1.RowCount := DataModule1.IBQListado.RecordCount + 1;
fr.StringGrid1.ColCount := DataModule1.IBQListado.FieldCount;
for i := 0 to DataModule1.IBQListado.FieldCount - 1 do
    fr.StringGrid1.Cells[i, 0] := DataModule1.IBQListado.Fields[i].FieldName;

Y eliminas la matriz.
Si aun así te sigue dando problemas de "range check error", debes ejecutarlo paso a paso y evaluar dónde está el error.

[Camilo]

Mis muy apreciados y respetados amigos. Reformulo.
Luego de dar mil vueltas llegue a la modificación del concepto de este procedimiento en el desarrollo.
siguiendo con el hilo pero con la reformulación mi lio ahora es el siguiente:
Dede un Form (FEvaluacion) creo unos frames en tiempo de ejecución. Los frames son un numero indeterminado que dependen de una consulta.
El codigo de la creación es el siguinete:

Código Delphi [-]
procedure TFEvaluacion.CrearFormulario;
var
  i, j, N, Consecutivo:Integer;
  fr:TFramePreg;
  Str, Str1, Str2,
  Str3, Str4, Str5, Str6:String;
  matriz: array of array of Variant;
  begin
  numFrames := 0;
  DataModule1.IBQCuenta.Close;
  DataModule1.IBQCuenta.ParamByName('INDICADOR').AsInteger:= StrToInt(Edit2.Text);
  DataModule1.IBQCuenta.Open;
  Rango_Consistencia;
  Label_rango_consistencia;

      N:= StrToInt(DbEdit1.Text);
      i := 0;

      for j := 0 to (N - 1) do

      DataModule1.IBQListado.Close;
      DataModule1.IBQListado.ParamByName('INDICADOR').AsInteger:= StrToInt(Edit2.Text);
      DataModule1.IBQListado.Open;

   with DBGrideh1.DataSource do
    begin
      DataSet.Prior;
      while not DataSet.Eof do
      begin
      // Crear el frame
        fr := TFramePreg.Create(Nil);
        fr.Parent := self.ScrollBox1;
        fr.Top := (fr.Height + 10) * (numFrames - 1) + 1;
        fr.Align := alTop;
        fr.Name := 'FramePregunta' + IntToStr(j + 1);

                  // Asignar textos
                  Str := AnsiReplaceText(Fr.lblCriterio1.Caption, '%t', DbGridEh1.Columns[0].Field.asString);
                  Str := AnsiReplaceText(Str, '%t', DbGridEh1.Columns[0].Field.asString);
                  Fr.lblCriterio1.Caption := Str;

                  Str1 := AnsiReplaceText(Fr.lblCriterio2.Caption, '%t1', DbGridEh1.Columns[2].Field.asString);
                  Str1 := AnsiReplaceText(Str1, '%t1', DbGridEh1.Columns[2].Field.asString);
                  Fr.lblCriterio2.Caption := Str1;

                  Str2 := AnsiReplaceText(Fr.lbldescripcion1.Caption, '%d', DbGridEh1.Columns[1].Field.asString);
                  Str2 := AnsiReplaceText(Str2, '%d', DbGridEh1.Columns[1].Field.asString);
                  Fr.lblDescripcion1.Caption := Str2;

                  Str3 := AnsiReplaceText(Fr.lbldescripcion2.Caption, '%d1', DbGridEh1.Columns[3].Field.asString);
                  Str3 := AnsiReplaceText(Str3, '%d1', DbGridEh1.Columns[3].Field.asString);
                  Fr.lblDescripcion2.Caption := Str3;

                  // incrementa la variable NumFrames y asigna su valor al Tag del frame
                  Inc(NumFrames);
                  Fr.Tag := numFrames;

                  Str4 := AnsiReplaceText(Fr.lblNumPregunta.Caption, '99',  IntToStr(numFrames));
                  Str4 := AnsiReplaceText(Str4, '99', IntToStr(NumFrames));
                  Fr.lblNumPregunta.Caption := Str4;


                  Str5 := AnsiReplaceText(Fr.lbllId_Criterio_1.Caption, '%id1', DbGridEh1.Columns[4].Field.asString);
                  Str5 := AnsiReplaceText(Str5, '%id1', DbGridEh1.Columns[4].Field.asString);
                  Fr.lbllId_Criterio_1.Caption := Str5;

                  Str6 := AnsiReplaceText(Fr.lblId_Criterio_2.Caption, '%id2', DbGridEh1.Columns[5].Field.asString);
                  Str6 := AnsiReplaceText(Str6, '%id2', DbGridEh1.Columns[5].Field.asString);
                  Fr.lblId_Criterio_2.Caption := Str6;

                  fr.Edit4.Text:='1';
                  fr.Edit5.Text:='1';
                  fr.Edit6.Text:='0,1111';
                  fr.Edit7.Text:='0,1111';
                  fr.Edit8.Text:= DbEdit1.Text;
                  fr.Edit9.Text:= Edit2.Text;
                  fr.Edit11.Text:= Edit3.Text;
                  fr.Edit12.Text:= Edit1.Text;
                  fr.DateTimePicker1.DateTime := Now;
                  fr.NumberBox1Change(Self);
                DataSet.Next;
                end;
        end;
end;

Pues bien este frame tiene un Edit15.text que aloja un dato producto de una operación. El FEvaluacion tiene un Edit4.Text en donde necesito reflejar ese Edit15 del frame que esta creado en runtime y cuyo form que lo compone es FEvaluacion.

Necesito algo asi como que desde un Button del frame pueda hacer esto y funcione:

Código Delphi [-]
procedure TFramePreg.Button5Click(Sender: TObject);
begin
  FEvaluacion.Edit4.Text := Edit15.Text;
end;

Parece ser que que al crear el Frame desde el form FEvaluacion y tratar de devolverle a este form un dato del frame; presenta un conflicto de instancias que no he podido resolver.
La duda concreata es:
Necesito reflejar desde un button del frame el edit15.text del frame en el Edit4.text del form que contiene a ese frame.
Gracias.