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;