delphi - 从 adoquery 获取数据到 stringlist

Question

好的，我有一个应该返回所有问题编号的查询。我想要的是获取返回的每个问题编号并将其添加到字符串列表中。

ADOQuery1.SQL.Clear;
SQLQuery := 'SELECT issue FROM Comics WHERE SeriesName = '+Quotedstr(SeriesName)+' AND Volume = '+quotedstr(VolumeNumber);

ADOQuery1.SQL.Add(SQLQuery);
ADOQuery1.Active := true;

所以一旦我得到这个，将结果放入字符串列表的最佳方法是什么。我尝试过使用ADOQuery1.GetFieldList(issuelist,'issue');，但不确定这是否真的很重要，或者我是否做得对tlist。tstringlist

Answer 1

您不想使用 GetFieldList。这将返回数据集中字段对象的列表。你需要做这样的事情：

ADOQuery1.Open;
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
  issuelist.Add(ADOQuery1.FieldByName('issue').AsString);
  ADOQuery1.Next;
end;