delphi直方圖顯示數字怎麽改回來

delphi 語言裏繪制圖表，通常使用 TChart 和 ?TDBChart 控件，這些圖表相關的控件屬於標準控件，delphi 安裝後就包含了。以下是簡單地步驟與示例代碼:

首先，在窗體中添加壹個 TChart 控件及其他需要的控件。

其次，建立直方圖代碼示例：

123456789101112131415procedure?TForm1.Button1Click(Sender:?TObject);var?Series1:?array?[0?..?1]?of?TBarSeries;//定義兩個直方圖序列?i:?integer;begin?Series1[0]?:=?TBarSeries.Create(Chart1);?Chart1.AddSeries(Series1[0]);?Series1[1]?:=?TBarSeries.Create(Chart1);?Chart1.AddSeries(Series1[1]);?for?i?:=?0?to?10?do?beginTBarSeries(Chart1.Series[0]).AddBar(random(100),?inttostr(i),?clred);//紅色，直方圖數據TBarSeries(Chart1.Series[1]).AddBar(random(100),?inttostr(i),?clgreen);//綠色，直方圖數據?end;end;

運行截圖：

上一篇:天門市浩航吸塑包裝有限公司招聘信息,天門市浩航吸塑包裝有限公司怎麽樣？

下一篇:加工中心系統，攻牙有退銷指令麽