if adoquery1.RecordCount > 0 then begin with adoquery1do begin first; while NOT EOF do begin listbox1.items.add(adoquery1.fieldbyname('name').asstring); next; end; end; end;
for i:=0 to adoquery1.RecordCount-1 do begin listbox1.items.add(adoquery1.fieldbyname('name').asstring); adoquery1.next; end;
adoquery1.first while NOT adoquery1.EOF do begin listbox1.items.add(adoquery1.fieldbyname('name').asstring); next; end;
这样只能加上一条记录吧?全加上去怎么编?
begin
with adoquery1do
begin
first;
while NOT EOF do
begin
listbox1.items.add(adoquery1.fieldbyname('name').asstring);
next;
end;
end;
end;
begin
listbox1.items.add(adoquery1.fieldbyname('name').asstring);
adoquery1.next;
end;
while NOT adoquery1.EOF do
begin
listbox1.items.add(adoquery1.fieldbyname('name').asstring);
next;
end;