盒子论坛 v2.1

我想实现将数据库的查询结果显示在memo中，以下是代码
var
  sGetResult : String ;
  i: integer ;

begin
if  ComboBox1.ItemIndex=0//若ComboBox1的选项是第一项，则进行
then begin
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('select * from zhongjie');//查找zhongjie表中所有项
Query2.open;
begin
With Query2 do
First ;
sGetResult := ' ;


  for i:=1 to Query2.RecordCount do
  begin
  sGetResult := sGetResult + Query2.Fields[0].AsString ；//返回查找中的第一列，并每项相加
  memo1.lines.add(sGetResult);//结果显示在memo中
  Next ;
end;
end;
end.
这只是程序的一部分，但是我觉得理论上没错，可是在运行是memo中没有内容显示，但若加一个dbgird控件却能完全显示内容。
按f9后，程序能运行，但出现warning提示for loop control variable must be
simple local variable
代表错误在fori:=1 to Query2.recordcount do一行请问是什么错误，该怎么修改呢？由于我不能经常上网，所以会在后天来看结果，欢迎大家帮助！

----------------------------------------------
delphi菜鸟

作者：

zizii (高高高级馒头)	★☆☆☆☆	-
	神秘会员

2003/5/26 17:17:37

1楼：

一般用 for i:=0 to Query2.recordcount-1 do
----------------------------------------------
维护世界和平，共创美好盒子。

作者：

wufen (wufen)	★☆☆☆☆	-
	盒子活跃会员

2003/5/26 22:20:31

2楼：

但是这样的话也会出错，问题不在那个地方，不知道for loop control variable must be simple local variable
指出的错误是什么意思，该怎么修改
----------------------------------------------
delphi菜鸟

作者：

ruby_li (ruby)	★☆☆☆☆	-
	普通会员

2003/5/27 13:51:29

3楼：

增加另一变量 j
j:=Query2.RecordCount ;
for i:=0 to j-1 do
----------------------------------------------
笨笨

作者：

wufen (wufen)	★☆☆☆☆	-
	盒子活跃会员

2003/5/28 16:19:49

4楼：

这样本质上没有区别，我估计关键是for loop control variable must be simple local variable
的错误，不知是什们意思
----------------------------------------------
delphi菜鸟

作者：

wufen (wufen)	★☆☆☆☆	-
	盒子活跃会员

2003/5/28 16:26:15

5楼：

谢谢anjunaj，我竟然没看前一篇文章，看来是with语句的位置不对，现在已经解决了。
----------------------------------------------
delphi菜鸟

信息

登陆以后才能回复