4 respuestas en este tema

[FerCastro]

Hola al grupo.

 

Tengo un problema con la inserciòn de elementos en un array dinàmico que explico a continuacòn.

 

Tengo un dataset con registros el cual paso a un objeto con propiedades al que se le asignan los valores del dataset, registro a registro, y se genera una inserciòn en un array previamente declarado.

 

Bien, todo perfecto, el array se genera, pero me estoy dando cuenta que cada que inserto un elemento, TODOS los elementos toman los valores del ùltimo elemento insertado. 

 

Es decir, tengo los elementos MARIA, PEDRO, JUAN, MARTA

 

Inserto el primero perfecto, pero cuando inserto el segundo, el primer elemento que se insertò como Marìa toma el valor de PEDRO, y el segundo pues ese es PEDRO, y cuando inserto el tercer elemento el primer y segundo elemento pasan a ser JUAN. 

 

Bueno, dejo un còdigo para ver si me pueden orientar.

 

Gracias

php

var
  vlArregloMovi : Edo;
  vlArregloTotales : Array_Of_Edo;
 
Begin
   //-- Dataset al inicio
  self.oVTReg.FindFirst;
  for nCiclo := 0 to self.oVTReg.RecordCount -1 do
    Begin
 
        vlArregloMovi := Edo.Create;
 
        vlArregloMovi.Persona               := Self.oVTReg.FieldByName('Persona').AsString;
        vlArregloMovi.mesPago               := Self.oVTReg.FieldByName('Mes_Pago').AsString;
        vlArregloMovi.moneda                := Self.oVTReg.FieldByName('Moneda').AsString;
        vlArregloMovi.Total                 := Self.oVTReg.FieldByName('Total').AsString;
 
        SetLength(vlArregloTotales , nCiclo + 1 );
        vlArregloTotales [nCiclo] :=  vlArregloMovi;
        vlArregloMovi.DESTROY;
 
        self.oVTReg.FindNext;
 
    End;

Saludos y gracias por la ayuda.

Editado por FerCastro, 11 mayo 2017 - 01:53 .

[FerCastro]

Depurando el proceso, veo que cuando hago destroy sobre el objeto que se inserta a la matriz de registros, los valores de todos los registros insertados en esta matriz se van a nulo, y vuelven a asignarse cuando se asignan desde el dataset, y el proceso se repite.

 

Alguna idea?

[FerCastro]

Depurando el proceso, veo que cuando hago destroy sobre el objeto que se inserta a la matriz de registros, los valores de todos los registros insertados en esta matriz se van a nulo, y vuelven a asignarse cuando se asignan desde el dataset, y el proceso se repite.

 

Alguna idea?

 

Ya, no tengo que destruir el objeto, por alguna razòn se me ocurriò poner el destroy y se jodiò todo,

 

Bueno, saludos 

[Delphius]

De lo que yo veo, ese código te deja un array con todos los elementos nulos, ya que está creando, asigna y luego elimina.

Cuando tu haces esto:

delphi

MiArray[Posicion] := MiObjeto;

Le estás diciendo que en la posición del array apunte al objeto en cuestión.

 

Si luego haces:

php

MiObjeto.Free; // No se debe usar Destroy

Estás liberando esa memoria por tanto dejando en nil la posición del vector correspondiente.

No debes eliminarlos. No al menos en esa parte del código si quieres mantener los objetos.

 

Por otro lado, además haces un mal uso de SetLength(). Estás generando una sobredimensión inncesaria. Y es una operación costosa. Ya que con cada redimensión debe copiarse los elementos actuales al nuevo tamaño. Lo mejor es definirle desde un principio el tamaño que tendrá si es conocida, o de un tamaño razonable y estimado en caso de no saberlo y recién redimensionar cuando nos quedemos sin espacio.

 

Como tu caso se trata de un valor conocido (y que es igual a la cantidad de registros del dataset) ya sabes la dimensión final que tendrá. Con una única llamada antes de entrar al for y dandole este tamaño es suficiente.

 

Saludos,

[FerCastro]

De lo que yo veo, ese código te deja un array con todos los elementos nulos, ya que está creando, asigna y luego elimina.

Cuando tu haces esto:

delphi

MiArray[Posicion] := MiObjeto;

Le estás diciendo que en la posición del array apunte al objeto en cuestión.

 

Si luego haces:

php

MiObjeto.Free; // No se debe usar Destroy

Estás liberando esa memoria por tanto dejando en nil la posición del vector correspondiente.

No debes eliminarlos. No al menos en esa parte del código si quieres mantener los objetos.

 

Por otro lado, además haces un mal uso de SetLength(). Estás generando una sobredimensión inncesaria. Y es una operación costosa. Ya que con cada redimensión debe copiarse los elementos actuales al nuevo tamaño. Lo mejor es definirle desde un principio el tamaño que tendrá si es conocida, o de un tamaño razonable y estimado en caso de no saberlo y recién redimensionar cuando nos quedemos sin espacio.

 

Como tu caso se trata de un valor conocido (y que es igual a la cantidad de registros del dataset) ya sabes la dimensión final que tendrá. Con una única llamada antes de entrar al for y dandole este tamaño es suficiente.

 

Saludos,

 

 

Mi estimado Marchelo...

 

Ya quedò, gracias por los comentarios