delphi中怎樣將統計結果用直方顯示出來

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

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

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

procedure?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

begin

TBarSeries(Chart1.Series[0]).AddBar(random(100),?inttostr(i),?clred);//紅色，直方圖數據

TBarSeries(Chart1.Series[1]).AddBar(random(100),?inttostr(i),?clgreen);//綠色，直方圖數據

end;

end;

運行截圖：