[Resolvido] Carregar Serie TChart

[Ademir Dalalibera 0]

Pessoal preciso de uma ajuda para carregar uma série de dados no componente Chart e assim gerar um gráfico.

 

Coloquei no form um componente Adoquery, um Tedit e um componente TChart e um Tbutton

 

Gfuncoes está declarado como

 

gfuncoes: TBarSeries;

 

Ai no onclick do botão eu coloquei o seguinte código :

 

 

procedure TForm1.Button1Click(Sender: TObject);
var
Consulta: String;
begin
   Consulta:= Edit1.Text;
   with ADOQuery1 do
	  begin
		 close;
		 SQL.Clear;
		 SQL.Add('SELECT * FROM PosVendas WHERE Data LIKE' + QuotedStr('%' + Consulta + '%'));
		 Open;
	  end;
   adoquery1.First;
   while not adoquery1.Eof do
	  begin
		 gfuncoes.addy(StrtoInt(Adoquery1.FieldByName('Funcoes').AsString),'A',clTeeColor);
		 adoquery1.Next;
	  end;

end;

A query está funcionando normal, eu coloco a data que quero no Edit1 e retorna a tabela filtrada por esta data.

 

O problema é como carregar estes dados para a Série do Chart.

 

Coloquei o segundo parametro da série como A só como exemplo para ver se funcionava, mas ele retorna erro nesta linha.

 

Se alguem puder me ajudar, sou novo ainda no Delphi, nunca lidei com gráficos.

[Ademir Dalalibera 0]

Consegui resolver.

 

Estava esquecendo de colocar a 2.a linha este código na criação da série :

 

 

procedure TGrafServicosEntregaTecnica.criaseries;
begin
	gfuncoes := TBarSeries.Create(Self);
	gfuncoes.ParentChart := Chart1;
	gfuncoes.Title := 'Funcoes';

 

 

Peço aos moderadores que fechem este tópico. Obrigado.