读表给动态数组赋值(20分)

H

huayf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-15

• #1

with ADOQuery1 do begin
SQL.Text :='select ques from quest where name='''+Edit1.text+'''';
Prepared;
Open;
while not EOF do begin //运行时在此中断
MyQuestion:=FieldByName('ques').Value
end;
i:=i+1;
Next;
end;
先谢过！！

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-15

• #2

你的一个End放错了地方吧，把下面代码第三行的end放到next之后去：
while not EOF do begin //运行时在此中断
MyQuestion:=FieldByName('ques').Value
end
//放这里必定死循环
i:=i+1;
Next;

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-15

• #3

HunterTeam说得没错，正确版本如下：

with ADOQuery1 do begin
SQL.Text :='select ques from quest where name='''+Edit1.text+'''';
Prepared;
Open;
while not EOF do
begin
MyQuestion:=FieldByName('ques').Value
i:=i+1
//还要记得I要初始化 I := 0;
Next;
end;
end;

 

H

huayf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-15

• #4

是的，谢谢