盒子论坛 v2.1

问问，我运行这个程序：
for i :=1 to 5 do
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add('select data from teechart where series=1 and num='+intToStr(i)+' order by num');
ADOQuery1.Open;

cells[i,1]:=ADOQuery1.FieldByName('data').AsString;
end;
它说for loop variable '1' may be undefined after loop
是怎么回事啊？
----------------------------------------------
一颗星是什么意思哟？

作者：

heihei_76 (小黑)	★☆☆☆☆	-
	盒子活跃会员

2003/12/23 11:15:54

1楼：

for i:=1 to 5 do
begin
//這里是循環的代碼
end;
----------------------------------------------
-

﹗﹗﹗

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/12/23 11:17:21

1楼：

stringgird1控件的行和列要偶们自己加上去
stringgrid1.rowcount:=stringgrid1.rowcount+1
stringgrid1.colcount:=stringgrid1.colcount+1

不然：cell[i,i] 如果程序循环到列或行不存在就会报告错误！
----------------------------------------------

作者：

sephil (NAILY Soft)	★☆☆☆☆	-
	盒子中级会员

2003/12/23 14:21:33

2楼：

同意1楼
少了begin/end

for I := 1 to 5 do
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT data FROM teechart WHERE series=1 AND num=' + IntToStr(I) + ' ORDER BY num');
  ADOQuery1.Open;

  Cells[I, 1] := ADOQuery1.FieldByName('data').AsString;
end;
----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog

信息

登陆以后才能回复