Error al insertar registros en el StringGrid

Elite237 · #1 05-11-2008

Hola de nuevo, fijense que estoy tratando que en el grid se me visualicen unos datos, pero al momento de hacerlo me sale el siguiente error:

Código Delphi [-]EListError with message 'List index out of bounds(-1)'

Saben a que se refiere este error?

Este es mi codigo que utilizo en mi boton:

Código Delphi [-]procedure TForm1.BitBtnGenerarClick(Sender: TObject);
var
x:integer;
evalua:string;
begin
   //Obtiene la clave del combo evaluacion
  evalua:=copy(cmbEvaluacion.text,0,pos('-',cmbEvaluacion.text)-1);
  query1.close;
  query1.sql.clear;
  query1.sql.add('select det_version from det_evaluacion');
  query1.sql.add('where det_eval='''+evalua+'''');
  abre(query1);
  lblVersion.Caption:=query1.fieldbyname('det_version').asstring;
  //OBTIENE LA SECCION
  query1.close;
  query1.sql.clear;
  query1.sql.add('select * from det_evaluacion');
  query1.sql.add('where det_eval = '''+evalua+'''');
  query1.sql.add('and det_tipo=0');
  query1.sql.add('and det_valor=0');
  query1.sql.add('order by det_clave');
  abre(query1);
  x:=1;
   While not query1.eof do
   begin
      sgEvaluacion.cells[1,x]:=query1.fieldbyname('det_pregunta').asString;{insertamos todas las secciones}
      sgEvaluacion.rowCount:=sgEvaluacion.rowCount+1; {Para ir aumentando renglones}
      inc (x);
      query2.close;
      query2.sql.clear;
      query2.sql.add('Select * from det_evaluacion');
      query2.sql.add('where det_eval='''+evalua+'''');
      query2.sql.add('and det_tipo =1');
      query2.sql.add('and det_clave like '''+query1.fieldbyname('det_clave').asstring+'.%''');
      query2.sql.add('and det_valor=0');
      query2.sql.add('order by det_clave');
      abre(query2);
 
      //Agregué para sacar los valores de cada opcion y visualizarlos en el grid

    query3.close;
    query3.sql.clear;
    query3.sql.Add('select det_eval,det_clave,det_pregunta,det_valor,det_tipo from det_evaluacion');
    query3.sql.add('where det_eval = '''+evalua+'''');
    query3.sql.add('and det_clave like '''+sgEvaluacion.cells[sgEvaluacion.col-1,sgEvaluacion.row]+'.%''');
    query3.sql.add('and    det_tipo= 2');
    query3.sql.add('order by det_valor asc');
    abre(query3);
    while not query3.eof do
    begin
      if query3.fieldbyname('det_valor').AsInteger=1 then
      begin
       sgEvaluacion.cells[2,x]:=query3.fieldbyname('det_valor').asstring;
      end
        else
         if query3.fieldbyname('det_valor').AsInteger=2 then
          begin
           sgEvaluacion.cells[3,x]:=query3.fieldbyname('det_valor').asstring;
          end
            else
            if query3.fieldbyname('det_valor').AsInteger=3 then
             begin
              sgEvaluacion.cells[4,x]:=query3.fieldbyname('det_valor').asstring;
             end
              else
              if query3.FieldByName('det_valor').AsInteger=4 then
               begin
                sgEvaluacion.cells[5,x]:=query3.fieldbyname('det_valor').asstring;
               end
               else
                if query3.fieldbyname('det_valor').AsInteger=5 then
                begin
                 sgEvaluacion.cells[6,x]:=query3.fieldbyname('det_valor').asstring;
                end
    end;
      while not query2.eof do
      Begin
       sgEvaluacion.cells[0,x]:=query2.fieldbyname('det_clave').asstring;
       sgEvaluacion.Cells[1,x]:=query2.fieldbyname('det_pregunta').AsString;
       {sgEvaluacion.Cells[2,x]:='1';
       sgEvaluacion.Cells[3,x]:='2';
       sgEvaluacion.Cells[4,x]:='3';
       sgEvaluacion.Cells[5,x]:='4';
       sgEvaluacion.Cells[6,x]:='5';}
       sgEvaluacion.Cells[7,x]:='Resultado';
       inc(x);
       query2.next;
        if x=1 then
          sgEvaluacion.RowCount:=2
        else
          sgEvaluacion.RowCount:=x
      End;
   query1.next;
   end;
end;

Lo que hago en este grid es que se visualice las secciones,las preguntas y despues en otras columnas los valores de las opciones.Si una respuesta tiene el valor =1 que lo pinte en la columna2, si el valor =2 pintarlo en la columna 3,si valor=3 pintarlo en la columna4,si valor=4 pintarlo en la columna5,y por ultimo si valor=5 pintarlo en la columna 6

[maeyanes] · #2 05-11-2008

Hola...

¿Exactamente en que línea te produce el error?

Ese error indica que estás tratan de acceder a una pocisión que no existe en una lista.

Ahora, este pedazo de código:

Código Delphi [-]    while not query3.eof do
    begin
      if query3.fieldbyname('det_valor').AsInteger=1 then
      begin
       sgEvaluacion.cells[2,x]:=query3.fieldbyname('det_valor').asstring;
      end
        else
         if query3.fieldbyname('det_valor').AsInteger=2 then
          begin
           sgEvaluacion.cells[3,x]:=query3.fieldbyname('det_valor').asstring;
          end
            else
            if query3.fieldbyname('det_valor').AsInteger=3 then
             begin
              sgEvaluacion.cells[4,x]:=query3.fieldbyname('det_valor').asstring;
             end
              else
              if query3.FieldByName('det_valor').AsInteger=4 then
               begin
                sgEvaluacion.cells[5,x]:=query3.fieldbyname('det_valor').asstring;
               end
               else
                if query3.fieldbyname('det_valor').AsInteger=5 then
                begin
                 sgEvaluacion.cells[6,x]:=query3.fieldbyname('det_valor').asstring;
                end
    end;

Bien lo podrías hacer así:

Código Delphi [-]var
  Valor: Integer;

begin
  // código antes
    Valor := query3.fieldbyname('det_valor').AsInteger;
    sgEvaluacion.cells[Valor + 1, x] := IntToStr(Valor);
  // código después

Edición:
Ya revisando bien tu código, veo que incrementas en dos lugares la variable x y recorres query1 y dentro del ciclo de query1 recorres query2. También en el ciclo de query3 veo que no haces un query3.Next, por lo al entrar a ese ciclo la aplicación debe quedar "colgada", ya que es un ciclo infinito.

Saludos...

Elite237 · #3 05-11-2008

Gracias Maeyanes por tu respuesta.El error al momento de ejecutarlo me lo da en esta linea:

Código Delphi [-]query3.sql.add('and det_clave like '''+sgEvaluacion.cells[sgEvaluacion.col-1,sgEvaluacion.row]+'.%''');

Otra duda, con el codigo que me sugieres me va a asignar los valores en cada columna?osea en la col 2 el valor 1 y asi sucesivamente hasta la columna 6 el valor 5?????

Elite237 · #4 05-11-2008

Aqui dejo el codigo antes que lo modificara y funcionaba bien.Con este codigo me muestra las secciones y las preguntas que tiene cada seccion.Lo que quiero hacer es agregar los valores de las respuestas, en las columnas que siguen

Código Delphi [-]procedure TForm1.BitBtnGenerarClick(Sender: TObject);
var
x:integer;
evalua:string;
begin
   //Obtiene la clave del combo evaluacion
  evalua:=copy(cmbEvaluacion.text,0,pos('-',cmbEvaluacion.text)-1);
  query1.close;
  query1.sql.clear;
  query1.sql.add('select det_version from det_evaluacion');
  query1.sql.add('where det_eval='''+evalua+'''');
  abre(query1);
  lblVersion.Caption:=query1.fieldbyname('det_version').asstring;
  //OBTIENE LA SECCION
  query1.close;
  query1.sql.clear;
  query1.sql.add('select * from det_evaluacion');
  query1.sql.add('where det_eval = '''+evalua+'''');
  query1.sql.add('and det_tipo=0');
  query1.sql.add('and det_valor=0');
  query1.sql.add('order by det_clave');
  abre(query1);
  x:=1;
   While not query1.eof do
   begin
      sgEvaluacion.cells[1,x]:=query1.fieldbyname('det_pregunta').asString;{insertamos todas las secciones}
      sgEvaluacion.rowCount:=sgEvaluacion.rowCount+1; {Para ir aumentando renglones}
      inc (x);
      query2.close;
      query2.sql.clear;
      query2.sql.add('Select * from det_evaluacion');
      query2.sql.add('where det_eval='''+evalua+'''');
      query2.sql.add('and det_tipo =1');
      query2.sql.add('and det_clave like '''+query1.fieldbyname('det_clave').asstring+'.%''');
      query2.sql.add('and det_valor=0');
      query2.sql.add('order by det_clave');
      abre(query2);
      while not query2.eof do
      Begin
       sgEvaluacion.cells[0,x]:=query2.fieldbyname('det_clave').asstring;
       sgEvaluacion.Cells[1,x]:=query2.fieldbyname('det_pregunta').AsString;
       sgEvaluacion.Cells[2,x]:='1';
       sgEvaluacion.Cells[3,x]:='2';
       sgEvaluacion.Cells[4,x]:='3';
       sgEvaluacion.Cells[5,x]:='4';
       sgEvaluacion.Cells[6,x]:='5';
       sgEvaluacion.Cells[7,x]:='Resultado';
       inc(x);
       query2.next;
        if x=1 then
          sgEvaluacion.RowCount:=2
        else
          sgEvaluacion.RowCount:=x
      End;
   query1.next;
   end;
end;

[maeyanes] · #5 05-11-2008

Cita:

Empezado por Elite237

Gracias Maeyanes por tu respuesta.El error al momento de ejecutarlo me lo da en esta linea:

Código Delphi [-]query3.sql.add('and det_clave like '''+sgEvaluacion.cells[sgEvaluacion.col-1,sgEvaluacion.row]+'.%''');

Aquí como todavía no has hecho Query1.Next, bien puedes volver a usar el valor del campo: Query1.FieldByName('det_clave').AsString

Código Delphi [-]Query3.SQL.Add('and det_clave like ''' + Query1.FieldByName('det_clave').AsString + '.%''');

Cita:

Empezado por Elite237

Otra duda, con el codigo que me sugieres me va a asignar los valores en cada columna?osea en la col 2 el valor 1 y asi sucesivamente hasta la columna 6 el valor 5?????

Así es...

Saludos...

Elite237 · #6 05-11-2008

Cita:

Empezado por maeyanes

Aquí como todavía no has hecho Query1.Next, bien puedes volver a usar el valor del campo: Query1.FieldByName('det_clave').AsString

Código Delphi [-]
Query3.SQL.Add('and det_clave like ''' + Query1.FieldByName('det_clave').AsString + '.%''');

Así es...

Saludos...

Ok Maeyanes, ya no me arrojo el error, solo que no me muestra los valores de las respuestas en las columnas.El codigo lo deje asi :

Código Delphi [-]procedure TForm1.BitBtnGenerarClick(Sender: TObject);
var
x,valor:integer;
evalua:string;
begin
   //Obtiene la clave del combo evaluacion
  evalua:=copy(cmbEvaluacion.text,0,pos('-',cmbEvaluacion.text)-1);
  //OBTIENE LA VERSION
  query1.close;
  query1.sql.clear;
  query1.sql.add('select det_version from det_evaluacion');
  query1.sql.add('where det_eval='''+evalua+'''');
  abre(query1);
  lblVersion.Caption:=query1.fieldbyname('det_version').asstring;
  //OBTIENE LA SECCION
  query1.close;
  query1.sql.clear;
  query1.sql.add('select * from det_evaluacion');
  query1.sql.add('where det_eval = '''+evalua+'''');
  query1.sql.add('and det_tipo=0');
  query1.sql.add('and det_valor=0');
  query1.sql.add('order by det_clave');
  abre(query1);
  x:=1;
   While not query1.eof do
   begin
      sgEvaluacion.cells[1,x]:=query1.fieldbyname('det_pregunta').asString;{insertamos todas las secciones}
      sgEvaluacion.rowCount:=sgEvaluacion.rowCount+1; {Para ir aumentando renglones}
      inc (x);
      query2.close;
      query2.sql.clear;
      query2.sql.add('Select * from det_evaluacion');
      query2.sql.add('where det_eval='''+evalua+'''');
      query2.sql.add('and det_tipo =1');
      query2.sql.add('and det_clave like '''+query1.fieldbyname('det_clave').asstring+'.%''');
      query2.sql.add('and det_valor=0');
      query2.sql.add('order by det_clave');
      abre(query2);
      query3.close;
      query3.sql.clear;
      query3.sql.Add('select det_eval,det_clave,det_pregunta,det_valor,det_tipo from det_evaluacion');
      query3.sql.add('where det_eval = '''+evalua+'''');
      query3.sql.add('and det_clave like ''' + Query1.FieldByName('det_clave').AsString + '.%''');
      query3.sql.add('and    det_tipo= 2');
      query3.sql.add('order by det_valor asc');
      abre(query3);
      while not query3.eof do
      begin
      valor:=query3.fieldbyname('det_valor').AsInteger;
      sgEvaluacion.cells[valor + 1,x]:=IntToStr(valor);
      query3.next;
      end;
      while not query2.eof do
      Begin
       sgEvaluacion.cells[0,x]:=query2.fieldbyname('det_clave').asstring;
       sgEvaluacion.Cells[1,x]:=query2.fieldbyname('det_pregunta').AsString;
       sgEvaluacion.Cells[2,x]:='1';
       sgEvaluacion.Cells[3,x]:='2';
       sgEvaluacion.Cells[4,x]:='3';
       sgEvaluacion.Cells[5,x]:='4';
       sgEvaluacion.Cells[6,x]:='5';
       sgEvaluacion.Cells[7,x]:='Resultado';
       inc(x);
       query2.next;
        if x=1 then
          sgEvaluacion.RowCount:=2
        else
          sgEvaluacion.RowCount:=x
      End;
   query1.next;
   end;
end;

Saludos.Gracias por el tiempo que me estas dedicando.En serio muchas gracias

[maeyanes] · #7 05-11-2008

Hola...

Este código:

Código Delphi [-]abre(query3);
      while not query3.eof do
      begin
      valor:=query3.fieldbyname('det_valor').AsInteger;
      sgEvaluacion.cells[valor + 1,x]:=IntToStr(valor);
      query3.next;
      end;

Cambialo por este:

Código Delphi [-]      Abre(Query3);
      Valor := Query3.FieldByName('det_valor').AsInteger;
      sgEvaluacion.Cells[Valor + 1, X] := IntToStr(Valor);
      Query3.Close;

El cambio es por que Query3 me imagino que solo debe devolver un registro, así que no tiene caso hacer el ciclo while..do...

Saludos...

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Insertar Boton en StringGrid,	seb@	OOP	19	10-04-2016 05:09:21
Insertar ub boton o panel en cada celda de un Stringgrid	ingel	Varios	1	20-07-2007 23:35:18
Error al insertar registros en Access	Moises22	Conexión con bases de datos	2	09-01-2006 14:36:25
Error al insertar o borrar registros en firebird	pepitu	Firebird e Interbase	3	26-09-2005 14:56:57
problema al insertar dato tipo date a un stringGrid	emil	SQL	2	11-07-2003 18:41:34