Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #25  
Antiguo 05-12-2008
Avatar de nuk3zito
nuk3zito nuk3zito is offline
Miembro
 
Registrado: ago 2003
Ubicación: "Z" Land
Posts: 244
Poder: 23
nuk3zito Va por buen camino
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
__________________
Tiempo y ocasión acontecen a todos!
Responder Con Cita
 


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
Problema con RaveReports (multiples instancias) az_jazo Varios 2 24-05-2006 17:55:03
Compartir "objetos" entre varias instancias mafebresv Varios 4 16-01-2006 23:38:23
Problema al momento de crear objetos DANY OOP 5 28-11-2005 10:28:05
Problema con TBitBtn lroblesco Varios 1 17-02-2005 08:41:07


La franja horaria es GMT +2. Ahora son las 14:28:09.


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