义如下:
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;
注：
(a).MachineBurthen[i]为一实型数组，其值为对应设备的利用率，已
在另一函数中计算得到；
(b). MachinesBurthenCharts为TChart控件，在type段说明。
3.程序运行结果显示
(1).动态生成Shape控件，显示零件排产计划图(略)
(2).动态生成Chart控件的ChartSeries组件，显示设备利用率(略)
上一页 [1] [2] | 
