m.davodnia
-
Posts
2 -
Joined
-
Last visited
m.davodnia's Achievements
Newbie (1/4)
0
Reputation
-
سپاس گذارم از پاسختان
-
سلام آقای مهاجری من می خوام چارت بسازم بدون اینکه نوعش را بدانم تقریبا مثل ساختن فرم ها در نمونه دمو Const ChartTypeA:array[0..12] of String=('TUniAreaSeries', 'TUniBarSeries', 'TUniBar3DSeries', 'TUniBoxPlotSeries', 'TUniCandleStickSeries', 'TUniGaugeSeries', 'TUniHorizBarSeries', 'TUniHorizBar3DSeries', 'TUniLineSeries', 'TUniPieSeries', 'TUniPie3DSeries', 'TUniRadarSeries', 'TUniScatterSeries'); var I,J:integer; S:String; CSC:TUniChartSeriesClass; Fr:TUniChartSeries; Val : Double; Head : string; begin CSC:=TUniChartSeriesClass(FindClass(chartTypeA[Inx])); Fr:=CSC.Create(UniChart1); Fr.Parent:=UniChart1; UniChart1.SeriesList.Add(Fr); for j := 0 to 11 do begin Head := IntToStr(2000 + j); Val := Random(100) + 50; Fr.Add(Val, Head); end; end;