請問: 目前我的Tchart  動態新增Series 已經OK了!! 不過在對右邊 series 的說明，設定名稱有問題!!!    下面是我的程式碼:     

 
procedure TForm1.Button1Click(Sender: TObject);
var
Series1: TbarSeries;
      I: integer;
begin
    chart1.Legend.Visible:=true;
    
   for i:= 0 to 3 do begin
    Series1:=TbarSeries.Create(self);
    Chart1.AddSeries(Series1);
    Series1.Title:= '';
     Series1.add(i,inttostr(i));
     Series1.add(i*i,inttostr(i*i));
     Series1.Title:= inttostr( i );
   end;
end;    

在裡面,我的series 應該只有4條線~~ 可是出來的卻是這樣!! 在右邊的說明多了一個 series1 , 請問我要怎樣消除那個series1阿?? 讓他只秀 0,1,2,3 阿??

hmjhmj 你好

procedure TForm1.Button1Click(Sender: TObject);
var
Series1: TbarSeries;
      I: integer;
begin
    chart1.Legend.Visible:=true;
   
   Chart1.SeriesList.Clear; // 先清除現有的Series
   for i:= 0 to 3 do begin
    Series1:=TbarSeries.Create(self);
    Chart1.AddSeries(Series1);
    Series1.Title:= '';
     Series1.add(i,inttostr(i));
     Series1.add(i*i,inttostr(i*i));
     Series1.Title:= inttostr( i );
   end;
end;    

原來如此阿~~ 是那邊沒有注意到!! 感謝~~~

我已經用此方法動態新增成功，但有個問題，要如何設定 Series1的寬度，似乎找不到可設定的屬性

找到方法了如下 Series1.LinePen.Visible :=True; //線條寬度 Series1.LinePen.Width := 2;