想請問是否能利用一段程式來新增

引言: 想請問是否能利用一段程式來新增>< face="Verdana, Arial, Helvetica"> Sample Code as following:

procedure TForm1.BitBtn1Click(Sender: TObject);
var S: TBarSeries;
begin
   S := TBarSeries.Create(self);
   S.ParentChart := Chart1;
   S.AddBar(100,'test',clred);
end;

/* Free 和 Create 一樣重要 */

謝謝Mickey..... 因為我是用 >

我不太懂 ? TBarSeries, TChartShape 不都是 TChartSeries 嗎 ? 只是 property/ method 不太一樣. /* Free 和 Create 一樣重要 */

try try see

procedure TForm1.Button1Click(Sender: TObject);
var S: TChartShape;
begin
   S := TChartShape.Create(self);
   S.Assign(Series1); // Series1 Designed Created.
   S.ParentChart := QRDBChart1; // TQRChart.Chart Property
end;

Copy All Series from TChart : procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i := 0 to Chart1.SeriesCount-1 do begin with TChartShape.Create(self) do begin Assign(Chart1.Series[i]); ParentChart := QRDBChart1; end; end; end; /* Free 和 Create 一樣重要 */ 發表人 - Mickey 於 2003/03/11 14:26:55

var S : TChartShape; begin S := TChartShape.Create(self); S.ParentChart := QRDBChart1; S.Add(100,'test',clTeeColor); S.Style := chasRectangle; end; 我這樣寫可是卻沒看到Series產生... 不知道問題出在哪裡??(我是在QuickReport上放一個QrChart)

我找到原因了.. 非常謝謝Mickey的指導..