如何将数据库中的某个字段的所有记录读入到一个TstringList中?

Question

代码限3行内

Answer 1

while not ADOQuery.Eof do begin
    strlist.Add(ADOQuery.Fields['yourfield'].Value);
    ADOQuery.Next; end;

Answer 2

adoquery.open;
for i := 1 to adoquery.recordcount do
begin
  stringlist.add(adoquery.fieldbyname('fieldname').value);
  adoquery.next;
end;

Answer 3

可以把Query查询到的数据保存成TstringList的文件格式。TstringList就可以直接显示了。一行就可以了！
开个玩笑，其实我也不会