Ver Mensaje Individual
  #8  
Antiguo 19-06-2008
[coso] coso is offline
Miembro Premium
 
Registrado: may 2008
Ubicación: Girona
Posts: 1.678
Reputación: 0
coso Va por buen camino
vale...

Código Delphi [-]
 
   puerto:=RIO as Libretas;
 
   try 
     GetMem(lista,num_elems*sizeof(map));
     for i := 0 to num_elementos_lista do
// asignamos memoria a cada uno de los elementos (que son tambien arrays dinamicos) de lista
     GetMem(lista[i],num_maps*sizeof(mapItem)); 
   except
   ...
   end;

  lista:=puerto.listarPlanes;
  GetMem(m,50*SizeOf(mapItem));
  m:=lista[0];
  mi:=m[0] as TRemotable;
  ShowMessage(mi.value);

prueba con esto.

PD: prueba tambien con el setlenght
PDD : tendras que liberar tambien, antes que al objeto lista, todos y cada uno de sus elementos

Última edición por coso fecha: 19-06-2008 a las 22:37:01.
Responder Con Cita