Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 12-09-2007
Avatar de hjpires
hjpires hjpires is offline
Registrado
 
Registrado: sep 2007
Ubicación: Trelew - Chubut - Argentina
Posts: 7
Poder: 0
hjpires Va por buen camino
Unhappy Error al utilizar Array dinámicos

Buenas tardes
Tengo una aplicación donde vuelco datos en un treeview y en un stringGrid dentro de la misma pantalla, además como hay datos que necestio utilizar pero que no es necesario mostrarlo por pantalla, tengo un array dinámico que lo dimensiono del mismo tamaño que el stringGrid y en él cargo los datos que necesito, pero que no quiero que se visualicen en el stringGrid.
Ahora bien, he logrado hacer todo esto, pero al ejecutar la aplicación me da un erro de violación de acceso a memoria.
He ejecuatdo el programa paso a paso y lo mas extraño es que el arraydinámico se llena por completo y la cancelación ocurre cuando el foco vuelve a la aplicación.

Les muestro parte del código para que sea más sencillo entender de qué hablo:

Código Delphi [-]
type
  TotrosCamposGrilla = Record
                        Requisito   : integer;
                        Clave       : string;
                        Obligatorio : Boolean;
                        Status      : String;
                       end;
var
  arrOtrosCamposGrilla: array of TotrosCamposGrilla;
 
procedure TfrmSeguimientoDig.LlenarGrilla;
begin
   setLength(arrOtrosCamposGrilla,dmDigesto.adoqDatosGrilla.RecordCount);
   dmDigesto.adoqDatosGrilla.First;
   While not dmDigesto.adoqDatosGrilla.Eof do Begin
      GrdElementos.RowHeights[GrdElementos.RowCount - 1]:= 16;
      arrOtrosCamposGrilla[grdElementos.RowCount - 1].Requisito  := dmDigesto.adoqRecursoRequisitos['idRequisito'];
      arrOtrosCamposGrilla[grdElementos.RowCount - 1].Clave      := dmDigesto.adoqDatosGrilla['Clave'];
      grdElementos.Cells[2,grdElementos.RowCount - 1] := dmDigesto.adoqDatosGrilla['Descrip'];
      grdElementos.Cells[3,grdElementos.RowCount - 1] := dmDigesto.adoqDatosGrilla['Detalle'];
      dmDigesto.adoqDatosGrilla.Next;
      grdElementos.RowCount := grdElementos.RowCount + 1;
   end; //while
   if dmDigesto.adoqDatosGrilla.RecordCount > 0 then
      grdElementos.RowCount := grdElementos.RowCount - 1;
end;
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Error al utilizar una tabla en varios formularios eldiegofg Conexión con bases de datos 6 14-04-2007 03:29:48
Debo utilizar un Array ? gluglu Varios 6 27-01-2006 18:19:10
Error en Array Trecord. alfredosg19 Varios 1 20-03-2005 17:55:04
Error Al Utilizar Rxdbgrid dago_Ariza OOP 4 21-05-2004 18:28:20
¿Cómo utilizar el campo "array"? jncrls Firebird e Interbase 0 11-11-2003 23:48:26


La franja horaria es GMT +2. Ahora son las 01:07:51.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi