义如下: type TempData=Record Value:Real; StartTime:Real; end; Q:array of array of TempData 并且在另一过程已对Q的分量进行赋值。 b.为了区分不同的零件，Shape以不同颜色显示，此时，调用了函数
RandomColor。该函数为： function TCreateMultiCharts.RandomColor; var red,green,blue:byte; begin red:=random(255); green:=random(255); blue:=random(255); result:=red or (green shl 8) or (blue shl 16); end; (2).动态生成Charts控件的ChartSeries组件，显示设备利用率 procedure TFormMultiMachinesBurthen. ShowMachineBurthenCharts; var i:Integer; Burthen:Real; SeriesClass:TChartSeriesClass; NewSeries:array of TChartSeries; begin SetLength(NewSeries,CreateMultiCharts.Rows); MachinesBurthenCharts.height:=200; MachinesBurthenCharts.Width:=550; for i:=0 to CreateMultiCharts.Rows do begin SeriesClass:=TBarSeries; file://设置形状为三维条形图 NewSeries[i]:=SeriesClass.Create(Self); NewSeries[i].ParentChart:=MachinesBurthenCharts; NewSeries[i].Clear; Burthen:=MachineBurthen[i]; Burthen:=Round(Burthen*100)/100; file://只取小数点后两位数字 NewSeries[i].add(Burthen,'''''''',NewSeries[i].SeriesColor); end; end; 注：
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
