有谁能用with do对下列语句进行改造?

[sangdy]

var a,i:integer;
begin
adoquery1.open;
a:=adoquery1.RecordCount;
begin
for i:=0 to a-1 do
begin
dblistbox1.items.Add(adoquery1.FieldValues['name']);
adoquery1.MoveBy(1);
end;
end;
close;
end;

[dongliu]

with not adoquery1.eof do
begin
dblisibox1.items.add(adoquery1.fieldbyname('name').asstring);
adoquery1.next;
end;

[jy_1201]

没看到With do啊。
a:=adoquery1.RecordCount;下面的Begin和Close;语名的上面的End;去掉试试。

[jy_1201]

没看到With do啊。
a:=adoquery1.RecordCount;下面的Begin和Close;语名的上面的End;去掉试试。

[ruixi]

哈哈，是这样的。
var a,i:integer;
begin
With AdoQuery1 do
Begin
open;
a:=RecordCount;

for i:=0 to a-1 do
begin
dblistbox1.items.Add(FieldValues['name']);
MoveBy(1);
end;
close;
end;
end;

顺便，你为什么这样遍历查询数据？这样更容易吧。
begin
With AdoQuery1 do
Begin
open;
First;
While not eof do
Begin
dblistbox1.items.Add(FieldValues['name']);
Next;
end;
close;
end;
end;

[snowfog]

var a,i:integer;
begin
with adoquery1 do
begin
open;
a:=RecordCount;
for i:=0 to a-1 do
begin
dblistbox1.items.Add(FieldValues['name']);
MoveBy(1);
end;
close;
end;
end;

[IORILI]

var a,i:integer;
begin
with adoquery do
begin
open;
a:=RecordCount;
begin
for i:=0 to a-1 do
begin
dblistbox1.items.Add(FieldValues['name']);
MoveBy(1);
end;
end;
close;
end;
end;