Foros Club Delphi - Ver Mensaje Individual

jachguate · #2 31-01-2008

Revisá este código, te ayudará:

Código Delphi [-]procedure TForm1.Button4Click(Sender: TObject);
var
  Barra: TBarSeries;
  BarValues: Array of Double;
begin
  Barra := Chart1.Series[0] as TBarSeries;
  Barra.DataSource := nil;
  Barra.AddArray([1, 1.2, 3]);
  Barra.Visible := True;
  SetLength(BarValues, 3);
  BarValues[0] := 10;
  BarValues[1] := 8;
  BarValues[2] := 3;
  Barra.AddArray(BarValues);
  Barra.YValue[0] := 10;
  Barra.YValue[0] := 12;
end;

Hasta luego.