关于Chart1.Series 参数的问题

發文回覆瀏覽次數：1077

推到 Plurk!

推到 Facebook!

答題得分者是：Victor4022

daybreak
一般會員

發表：14
回覆：15
積分：5
註冊：2003-11-05

發送簡訊給我

#1 引用回覆回覆

發表時間：2011-06-22 11:37:27

IP:222.173.xxx.xxx 訂閱

在一段程序中：

procedure TForm_xl_grap.Button4Click(Sender: TObject);

var

i:integer;

mm:string;

begin

mshj:='shl';

i:=ComboBox2.ItemIndex;

case i of

0: mshj:='shl';

1: mshj:='je';

2: mshj:='hsh';

3: mshj:='dzjshsh';

4: mshj:='lch';

5: mshj:='mtime';

else

mshj:='shl';

end;

for i:=0 to Chart1.SeriesCount-1 do

Chart1.Series[i].Clear;

Form_chx.ADOQuery_xl.First;

for i:=0 to Form_chx.ADOQuery_xl.RecordCount do

begin

showmessage(Inttostr(mtx));

Chart1.Series[mtx].Add(Form_chx.ADOQuery_xl.FieldByName('shl').AsFloat,Form_chx.ADOQuery_xl.FieldByName(mshl).AsString);

Form_chx.ADOQuery_xl.Next;

end;

Chart1.Series[mtx].Active:=True;

end;

里面用到的 Chart1.Series[mtx].Add(Form_chx.ADOQuery_xl.FieldByName('shl').AsFloat,Form_chx.ADOQuery_xl.FieldByName(mshl).AsString); 其中的mshl是一个字段参数，但是程序运行时出错。请各位大大帮忙，如何正确运用里面的参数。谢谢。

Victor4022
中階會員

發表：0
回覆：76
積分：90
註冊：2011-02-20

發送簡訊給我

#2 引用回覆回覆

發表時間：2011-07-02 01:15:10

IP:122.126.xxx.xxx 訂閱

您的迴圈範例似乎不是正確的: for i:=0 to Form_chx.ADOQuery_xl.RecordCount do

===================引用 daybreak 文章===================
在一段程序中：

procedure TForm_xl_grap.Button4Click(Sender: TObject);

var

i:integer;

mm:string;

begin

mshj:='shl';

i:=ComboBox2.ItemIndex;

case i of

0: mshj:='shl';

1: mshj:='je';

2: mshj:='hsh';

3: mshj:='dzjshsh';

4: mshj:='lch';

5: mshj:='mtime';

else

mshj:='shl';

end;

for i:=0 to Chart1.SeriesCount-1 do

Chart1.Series[i].Clear;

Form_chx.ADOQuery_xl.First;

for i:=0 to Form_chx.ADOQuery_xl.RecordCount do

begin

showmessage(Inttostr(mtx));

Chart1.Series[mtx].Add(Form_chx.ADOQuery_xl.FieldByName('shl').AsFloat,Form_chx.ADOQuery_xl.FieldByName(mshl).AsString);

Form_chx.ADOQuery_xl.Next;

end;

Chart1.Series[mtx].Active:=True;

end;

里面用到的Chart1.Series[mtx].Add(Form_chx.ADOQuery_xl.FieldByName('shl').AsFloat,Form_chx.ADOQuery_xl.FieldByName(mshl).AsString); 其中的mshl是一个字段参数，但是程序运行时出错。请各位大大帮忙，如何正确运用里面的参数。谢谢。

系統時間：2024-04-25 9:29:20

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！