我有一个2维的数组，一维里面放的是名称，一维里面放的是它的数量，我想把它付给tchart(50分)

我要怎么样才能让chart显示柱装图，和饼图

关注！

对柱状图可以这样：
procedure TForm1.BitBtn1Click(Sender: TObject);
var aa:array [1..3,1..3] of Variant;
i:integer;
begin
aa[1,1]:='aa';
aa[1,2]:=13;
aa[2,1]:='bb';
aa[2,2]:=16;
aa[3,1]:='cc';
aa[3,2]:=19;
for i:=1 to 3 do
form1.Series1.AddBar(aa[i,2],aa[i,1],clblue);
end;
饼图同理。

uses
series;

procedure TForm1.BitBtn1Click(Sender: TObject);
type
TPiePoint = record
Name : string;
Value : Integer;
end;

const
PieArg : array [0..2] of TPiePoint=((Name:'Test1';Value:9),
(Name:'Test2';Value:27),
(Name:'Test3';Value:5));
var
Series : TPieSeries;
begin
Series := TPieSeries.Create(Self);
Chart1.AddSeries(Series);
Series.AddPie(PieArg[0].Value,PieArg[0].Name,clRed);
Series.AddPie(PieArg[1].Value,PieArg[1].Name,clBlue);
Series.AddPie(PieArg[2].Value,PieArg[2].Name,ClGreen);
end;

多人接受答案了。