Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-06-2011
ElGatitoTapatio ElGatitoTapatio is offline
Miembro
 
Registrado: nov 2006
Posts: 38
Poder: 0
ElGatitoTapatio Va por buen camino
Exepcion al cerrar form con Grafico (TChart)

Saludos a todos,

nuevamente requiriendo de su ayuda para solucionar una problema que me trae loco.

Estoy desarrollando un sistema que muestra graficos a partir de informacion consultada. Las series las genero de forma dinamica y se generan correctamente el problema es cuando cierro la ventana ya que me arroja una exception de memoria. Esto solo me sucede cuando ejecute la instruccion de limpiar las series, sin embargo si es necesario ejecutarla ya que pueden haber varias consultas de diferentes datos.

A continuacion les agrego parte del codigo en cuestion

Código Delphi [-]
var
    SeriePastel,SeriePastel2 : TPieSeries;
.....
 
    for i:= 0 to 2 do
      with ADOQuery_Consultas do
        begin
          Close;
          With SQL do
           begin
             Clear;
             Add('Consulta de datos');
             Open;
            end;
          SeriePastel2:= TPieSeries.Create(self);
          SeriePastel2.Title:= Fields[1].AsString;
          SeriePastel2.ExplodeBiggest:= 30;
          if TChart(frm_medidas_clave.FindComponent('Chart_3_2_turno'+IntToStr(i))).SeriesList.Count > 0 then
            TChart(frm_medidas_clave.FindComponent('Chart_3_2_turno'+IntToStr(i))).SeriesList.Clear;      // <----- si yo no agrego esta linea no me arroja el error
          TChart(frm_medidas_clave.FindComponent('Chart_3_2_turno'+IntToStr(i))).AddSeries(SeriePastel2);
          for s:= 1 to RecordCount do
            begin
              TChart(frm_medidas_clave.FindComponent('Chart_3_2_turno'+IntToStr(i))).Series[0].Add(Fields[0].AsFloat,Fields[1].AsString);
              Next
            end;
          with TChart(frm_medidas_clave.FindComponent('Chart_3_2_turno'+IntToStr(i))) do
            begin
              with Series[0] do
                begin
                   Shadow.Visible:= False;
                   ValueFormat:=  '##0.##%';
                   Marks.Style:= smsPercent;
                 end;
              Legend.LegendStyle:= lsAuto;
              Legend.Alignment:= laBottom;
              Legend.Visible:= True;
              Title.Caption:= 'Punto Evaluado';
              View3D:= True;
              Title.Caption:= Turno[i];
              Visible:= True;
             end;
        end;

De antemano les agradesco su ayuda y les envio un saludo!!

Gracias
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
Crear grafico con tchart Elite237 Gráficos 1 21-10-2008 18:51:43
Limpiar series de un Grafico ( TChart ) josem Gráficos 3 23-10-2005 04:06:50
TChart grafico mosorio Varios 3 26-08-2005 02:50:27
Cerrar un Form scooterjgm OOP 5 18-11-2004 12:27:33
Grafico de Barras en TChart agonzalez Gráficos 1 12-02-2004 05:29:02


La franja horaria es GMT +2. Ahora son las 01:11:53.


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