Problema con limite de instancias de objetos (TBitBtn)

[nuk3zito]

Saludos Delphius,
He visto puros famosos por aquí, me da gusto.

Empezado por Delphius

Sólo me voy a tomar la libertad de hacer una simple pregunta ¿Es muy estrictamente necesario tener 1300 objetos?

La cantidad de objetos la dicta la cantidad de registros que tiene una tabla. Un objeto por cada elemento de reporte. Cada elemento es la suma de cuentas o una fórmula interna que se tiene para calcular un valor.

Mira, te cuento la idea principal. El reporteador usa Excel como complemento, y lo que pasa es que se requiere proteger en gran medida los datos y la manera en que estos se calculan y a excel solo se le deja la tarea de recibir nuestros valores. Lo que se nos ocurrió en su momento es solo enviar los valores a nuestra hoja de excel y listo... que él se encargue del otro asunto.
Ahora bien, siendo Delphi un lenguaje orientado a objetos, la idea aquí es que cada elemento se manejara por si solo (quize probar ese poder), que cada elemento tuviera sus propios métodos y propiedades.
Como tu bien dices, nadie está excento de errores y creo que el mío puede estar al momento de liberar la memoria con el "free" (mi no basta experiencia con esto me hace dudar que el free libere de manera correcta el objeto)

Empezado por Delphius

en promedio 4 bytes [lo que "ocupa un objeto"]

Con esto supongo que te refieres a la referencia a un objeto, pero una instancia de un objeto ocupará tantos bytes compongan sus miembros. De todos modos dejemos esto a un lado, lo que realmente importa es que aunque cada instancia pesara 1Kb esto multiplicado por 1300 (que es el numero de elementos de mi reporte) se me sigue haciendo poco, así que en este grado solo estoy buscando cual fue mi error, en cual línea de código está.

Empezado por Delphius

Hola nuk3zito,
Tal vez me digas: no hay tiempo, se necesita para ahora, que no se vale retocar todo. Lamentablemente esta es una situación en la que muy posiblemente debas retocar muchas cosas. Un Out of memory no sale por arte de magia y en verdad para que salga algo mal hay que hacer.

Se que esos errores no se dan solos y no salen por arte de magia, creeme... esto ya es más un reto personal, puesto que la solución al problema la tengo en rediseño (no usar objetos?) pero ya es más necesidad personal descubrir el motivo de este error lejos de rediseñar todo. No se si me explico.

Agradezco como no tienes idea cualquier aporte de los foristas.

[[Delphius]]

Empezado por nuk3zito

He visto puros famosos por aquí, me da gusto.

¿Famoso? ¿Donde?
El día que yo sea famoso va a estallar el mundo debido que mi ego va a ocupar todo el planeta.
No más es que me tomo el tiempo aquí. De famoso no tengo nada, excepto el ser un loco trastornado.

Empezado por nuk3zito

Agradezco como no tienes ideas cualquier aporte de los foristas.

Antes de ponerme los guantes, debido a una mala interpretación de tus palabras, quiero preguntarte ¿bajo que contexto debo entender cuando me dices "que no tengo ideas"?

No puedo distinguir si me estás insultando educadamente y me tome el raje, diciendome algo como "Si no tienes p.. idea vete a otro lado"; o por el contrario me lo dices debido a que no te he ofrecido alguna alternativa a tu diseño.

Por la forma en como está redactado tu mensaje, puede interpretarse de muchas maneras. De igual modo yo no fui lo suficientemente claro al explicar la cuestión de los 4 bytes.

Saludos,

[nuk3zito]

DISCULPAME!!!

Realmente se me fue una "s" de más...

Entiendo tu reacción tal como se ha desencadenado el hilo. Sorry en verdad.

Una letrita puede cambiar todo el sentido de una frase.

Empezado por Delphius

Antes de ponerme los guantes, debido a una mala interpretación de tus palabras, quiero preguntarte ¿bajo que contexto debo entender cuando me dices "que no tengo ideas"?

No puedo distinguir si me estás insultando educadamente y me tome el raje, diciendome algo como "Si no tienes p.. idea vete a otro lado"; o por el contrario me lo dices debido a que no te he ofrecido alguna alternativa a tu diseño.

Por la forma en como está redactado tu mensaje, puede interpretarse de muchas maneras. De igual modo yo no fui lo suficientemente claro al explicar la cuestión de los 4 bytes.

Saludos,

[[Delphius]]

Bueno, ideas... ummm puedo maquinar algunas cuantas en cuestión de algunas horas.

Se que te puede sonar muy parecida mi idea, pero.... ¿Porqué no un TStringGrid?

La cuestión es que prefiero tirarte una serie de interrogantes para que tu mismo juzgues tu diseño y puedas encontrar ya sea una nueva alternativa o en su defecto, los puntos débiles del diseño.

1. ¿Que tan particular es un panel respecto a otro? ¿Son muy particulares? No comparten algo en común, fuera de una cuestión de que responde a una misma clase, y por tanto tienen las mismas características. A lo que voy es es a esta pregunta fundamental: ¿Que hace único a un panel, botón, o sea el control que sea?

2. Relacionado con el anterior, como corolario, ¿Existe algún tratamiento común a todos?

3. ¿Quien crea a quién? ¿Quien borra a quién? ¿Quién es dueño de quién? En fin cualquier pregunta que te permita establecer el grado de pertenencia y relación entre los objetos. En pocas delimitar claramente el alcance de cada clase y el ciclo de vida que le corresponde.

4. ¿Hasta que punto se hace empleo de métodos genéricos? ¿Son muy particulares? ¿Son virtuales? ¿Que tan amplia es la jerarquía de clases? ¿Es congruente la representación "física" del reporte con el tamaño del diseño de las clases?

Por ahora se me ocurren estas preguntas, puede que más adelante surjan otras.

Saludos,

[[Lepe]]

Cambia tu bucle por este otro:

Código Delphi [-]
  for i := slElementos.Count - 1 downto 0
    if Assigned( slElementos.Objects[i] ) then
    begin
       slElementos.Objects[i]).Free;
    end;
  slElementos.Clear;

El bucle que haces era en orden ascendente, pero cuando eliminas uno, el Count cambia, por lo que siempre que eliminas uno, te saltas otro....ejemplito:

tienes en el stringlist:

cero
uno
dos
tres

empezamos el bucle y borras el elemento cero, la lista pasa a ser:

uno
dos
tres

ahora pasa a borrar el índice uno....que borraría el elemento "dos":

uno
tres

Ahora pasaríamos a borrar el índice 3, pero como no existe (la propiedad count se ha actualizado al nuevo valor, pues sale del bucle.

Peor aún, no se termina de eliminar los elementos del stringlist, no ya los objetos en sí mismo, sino las cadenas de texto que tengas.

Como norma general: al destruir elementos de cualquier tipo de array o lista, hazlo siempre en orden descendente.

Con mi modificación no haría falta utilizar un bucle descendente, ya que no elimino el "string", pero para recordar este tipo de fallos, siempre lo hago.
¿Por qué no hago el "Delete(i)"? Por que es más eficiente borrarlos todos de un golpe con Clear, que ir borrándolos uno a uno. Si no necesitas borrarlos todos, pone el delete(i) dentro del bucle, ahora no fallará.

Como ves Delphi aquí no tiene nada que ver, primero tenemos que reconocer que somos novatos, para aceptar este tipo de fallos y aprender de ellos, es la única forma de llegar a ser algún día... por ejemplo cómo cHackAll

Como ya dije, no estoy de acuerdo con crear 1300 botones, pero si ha de hacerse...se hace. Hacerlo "pa ná" es tontería

Saludos.

[nuk3zito]

Gracias Lepe,
Realmente este es el codigo que tengo.

Por querer maquillarlo puse ese Delete() por error.

Código Delphi [-]
procedure TFControlReportesExcel.LimpiarListaElementos;
var
   i: integer;
begin
   Self.PonerMsgEspera('Eliminando elementos...');
   try
      try
         for i := 0 to slElementos.Count - 1 do
           if Assigned( slElementos.Objects[i] ) then
              if slElementos.Objects[i] is TObjElemento then
              begin
                 if slElementos.Objects[i] is TObjTitulo then
                    begin
                       TObjTitulo(slElementos.Objects[i]).Free;
                    end
                 else if slElementos.Objects[i] is TObjFormulaExcel then
                    begin
                       TObjFormulaExcel(slElementos.Objects[i]).Free;
                    end
                 else if slElementos.Objects[i] is TObjConcepto then
                    begin
                       TObjConcepto(slElementos.Objects[i]).Free;
                    end;
      //           slElementos.Delete(i);
              end;
      except
      end;
   finally
      slElementos.Clear;
      Self.QuitarMsgEspera();
   end;

   panGuias.Width:= ScrollBox1.Width + SIZEX;
   panGuias.Height:= ScrollBox1.Height + SIZEY;
   panDesign.Width:= ScrollBox1.Width;
   panDesign.Height:= ScrollBox1.Height;
end;

La primera vez si tenia un Delete() (hace como un mes), pero ese fue corregido en la misma hora.... lo dejé comentarizado

[[Lepe]]

Código Delphi [-]
procedure TFControlReportesExcel.LimpiarListaElementos;
var
   i: integer;
   strClass :string;
begin
   Self.PonerMsgEspera('Eliminando elementos...');
   try
     try
     for i := 0 to slElementos.Count - 1 do
       if Assigned( slElementos.Objects[i] ) then
       begin
         strClass := sElementos.Objects[i].ClassName;
         slElementos.Objects[i]).Free;
       end;
    except 
        ShowMessage('error al liberar el '+ strClass');
    end;
   finally
      slElementos.Clear;
      Self.QuitarMsgEspera();
   end;
   panGuias.Width:= ScrollBox1.Width + SIZEX;
   panGuias.Height:= ScrollBox1.Height + SIZEY;
   panDesign.Width:= ScrollBox1.Width;
   panDesign.Height:= ScrollBox1.Height;
end;

1º- Si en un except no haces nada, estás ocultando esa excepción, por tanto jamás encontrarás el fallo que hay en esa rutina. Entiendo que estando desesperado o simplemente apresurado, lo hayas puesto.

2º- ¿para qué está el polimorfismo en delphi? pues a usarlo. Todos las clases heredan de TObject en delphi, pero si llamamos a Tobject.Free, delphi sabrá que ese objeto es en realidad un TobjTitulo o lo que sea, por tanto, ejecutará el TobjTitulo.Free o el destructor que le corresponda.

3º- Ese bucle está bien, por tanto, olvida ese código y pasa a mirar si en algún momento estás liberando alguno de esos objetos. Por último pasa por mirar el método destroy de cada uno de tus clases: TobjTitulo, TobjFormulaExcel, etc porque ahí estará el error. De hecho he modificado el código para que salte un ShowMessage en la clase que te da el error al liberarlo de memoria, creo eso te ayudará a localizar el error.

Si sale el error antes que el ShowMessage, es precisamente porque objects[i] tiene un puntero no válido, es decir, es distinto de nil, pero apunta a una zona de memoria que ya se liberó, ataca por ahí.

Saludos