Delphi dicas

Criando grafico (chart)

// Primeiramente ensira em listboxs (depende do numero de series) os seus dados. Não é preciso alterar as prorpiedades do Chart



//Declare em Private

BDebito: TBarSeries;

BCredito: TBarSeries;

procedure MontaSerie_Bar(S: TBarSeries; L: TStrings);

procedure CriaSeries_Bar;



//Criando Series, recebe os valores dos listbox(um para cada serie)

procedure Tfrm_grafico_periodo.CriaSeries_Bar;

begin

        BDebito := TBarSeries.Create(Self);

        BDebito.ParentChart := cht_periodo;

        BDebito.Title := 'Debito';

        MontaSerie_Bar(BDebito, lbx_debito.items);



        BCredito := TBarSeries.Create(Self);

        BCredito.ParentChart := cht_periodo;

        BCredito.Title := 'Credito';

        MontaSerie_Bar(BCredito, lbx_credito.items);

end;



//Criando o grafico

procedure Tfrm_grafico_periodo.MontaSerie_Bar(S: TBarSeries; L: TStrings);

var

I: Integer;

begin

        S.Clear;

        for I := 0 to lbx_credito.Count-1 do

        S.Add(StrToFloat(L[I]), ShortMonthNames[StrToInt(lbx_mes.Items.Strings[I])]+'/'+lbx_ano.Items.Strings[I], clTeeColor);

end;



Este exemplo não tem limite de serie e nem perido, se quiser fazer outro tipo de grafico basta trocar os TBarSeries para TLineSeries(linhas 3D), TFasLineSeries(linhas finas), etc.

por : Fernando Costa