強大統計圖控件--delphi自帶TChartfx介紹 (2001年3月10日) 

網友更新  分類:控件使用   作者:閻磊  推薦:閻磊   閱讀次數:410  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
在我們制作統計圖是常常是用TDbchart,實際上delphi另一個Tchartfx比TDbchart功能強的多，唯一是不直接綁定數據源，下面舉一個與數據綁定例子
var
i,num:integer;
maxy:REAL;
begin
MAXY:=0;
with DataModule3 do
begin
num:=table4.RecordCount;
TABLE4.First;
ChartFx1.OpenDataEx(COD_VALUES,2,NUM);//打開數據通道設置為2 Series and 8 Points}
For i:=0 to num-1 Do
Begin
With ChartFx1 Do
Begin
ThisSerie:=0; //Serie 1的數據
Value[i]:=TABLE4.FIELDBYNAME('area').asfloat;
if maxy begin
maxy:=Value[i];
end;

ThisSerie:=1;//Serie 2的數據
Value[i]:=TABLE4.FIELDBYNAME('SALE').asfloat;
if maxy begin
maxy:=Value[i];
end;

Legend[i]:=TABLE4.FIELDBYNAME('DL').asstring;//設置圖例
End;

TABLE4.Next;
END;

ChartFx1.adm[CSA_MAX]:=maxy;//設置Y的最大值
ChartFx1.CloseData(COD_VALUES);
End;

END;