Fórum Trabalhando com graficos #208906

usa o componente tchart.

exemplo: var vetor:array[1..12]of real;
i:integer;
begin
vetor[1]:=query1Agua.Value;
vetor[2]:=query1Aluguel.Value;
vetor[3]:=query1Energia.Value;
vetor[4]:=query1Fgts.Value;
vetor[5]:=query1Funcionarios.Value;
vetor[6]:=query1Icms.Value;
vetor[7]:=query1Impostos_de_renda.Value;
vetor[8]:=query1Inss.Value;
vetor[9]:=query1Luz.Value;
vetor[10]:=query1Prolabori.Value;
vetor[11]:=query1Telefone.Value;
vetor[12]:=query1Combustivel.Value;
With Series1 do
Begin
Add( vetor[1], ´agua´ , clblue ) ;
Add( vetor[2], ´aluguel´, clyellow ) ;
Add( vetor[3], ´energia´, clred ) ;
Add( vetor[4], ´fgts´, cllime ) ;
Add( vetor[5], ´funcionarios´, clgray ) ;
Add( vetor[6], ´icms´, $004080ff ) ;
Add( vetor[7], ´imposto de renda´, $00c08000 ) ;
Add( vetor[8], ´inss´, $00004000 ) ;
Add( vetor[9], ´luz´, clwhite ) ;
Add( vetor[10], ´prolabori´,clolive ) ;
Add( vetor[11], ´telefone´, clblack ) ;
Add( vetor[12], ´combustivel´, clGreen ) ;
btgrafico.enabled:=false;