Fórum erro ao criar gráfico #576618
07/03/2017
0
Boa tarde gente,
tenho uma aplicação em IntraWeb na qual serão criados alguns gráfico. Estes são criados por meio de botões. Estou tendo problemas ao criar o grafico de bolhas. Criei a serie e o grafico e tentei adicionar uma bolha apenas para teste, mas o erro abaixo foi exibido:
Project GrafResulParcial.exe raised exception class EAccessViolation with Message 'Access violation at adress 0067D810 in module 'GrafResulParcial.exe'. Read of adress 00000004'.
alguém sabe o que poderia ser? ja tentei debugar e a execução não passa da linhas de adicionar serie
agradeço se alguém puder ajudar :)
tenho uma aplicação em IntraWeb na qual serão criados alguns gráfico. Estes são criados por meio de botões. Estou tendo problemas ao criar o grafico de bolhas. Criei a serie e o grafico e tentei adicionar uma bolha apenas para teste, mas o erro abaixo foi exibido:
Project GrafResulParcial.exe raised exception class EAccessViolation with Message 'Access violation at adress 0067D810 in module 'GrafResulParcial.exe'. Read of adress 00000004'.
alguém sabe o que poderia ser? ja tentei debugar e a execução não passa da linhas de adicionar serie
procedure Tfrmparcialgraph.btngerarbubblegraphClick(Sender: TObject);
var
serie10: Tbarseries;
chart10: Tchart;
abc, : integer;
begin
rgnlegendabubblegraph.visible := true;
imgbubblegraph.visible := true;
chart10 := Tchart.Create(self);
serie10 := Tbarseries.Create(self);
chart10.AddSeries(serie10); // a execução não passa desta linha
chart10.SeriesList.ClearValues;
chart10.title.Text.Add('Bubble Graph');
chart10.view3D := False;
chart10.legend.visible := False;
abc := 1;
serie10.AddXY(abc, Vg[1, 1],1, '', clWebAQUAMARINE);
end;agradeço se alguém puder ajudar :)
Roberta
Curtir tópico
+ 0
Responder
Posts
07/03/2017
Roberta
apenas uma correção, o código esta como mostrado abaixo:
procedure Tfrmparcialgraph.btngerarbubblegraphClick(Sender: TObject);
var
serie10: Tbarseries;
chart10: Tchart;
abc, : integer;
begin
rgnlegendabubblegraph.visible := true;
imgbubblegraph.visible := true;
chart10 := Tchart.Create(self);
serie10 := Tbubbleseries.Create(self);
chart10.AddSeries(serie10); // a execução não passa desta linha
chart10.SeriesList.ClearValues;
chart10.title.Text.Add(''''Bubble Graph'''');
chart10.view3D := False;
chart10.legend.visible := False;
abc := 1;
serie10.Addbubble(abc, Vg[1, 1],1, '''''''', clWebAQUAMARINE);
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)