Question

我希望创建一个使用TADOQuery的函数，我可以传递一个select语句，它将从数据库中获取结果并将结果作为TList返回

function GetList(SelectStatement : string) : TList;
var
  ResultList : TList;
Begin
  with ADOQuery do
    Begin
      close;
      SQL.Clear;
      SQL.Add(SelectStatement);
      open;
      //This is where am not sure
      //Get the results and populate the ResultList
    End;

  Result := ResultList;
End;

请注意，该函数是通用函数，因此无法对“结果列表”进行“硬编码”。

以上是否可以实现？

Answer 1

您可以使用变量数组来存储一行的字段和这些“行数组”的通用列表以保留这些字段。

uses Generics.Collections;
{$R *.dfm}

Type
  TVarArray = Array of Variant;
  TVarList = TList<TVarArray>;

Function GetAds2List(Ads:TAdoDataset):TVarList;

  Function GetRow:TVarArray;
    var
    i: Integer;
    begin
      SetLength(Result, ADS.FieldCount);
      for i := 0 to ADS.FieldCount - 1 do
      begin
        Result[i] := ADS.Fields[i].Value;
      end;    
    end;
begin
    Result := TVarList.Create;
    Ads.First;
    While not ADS.Eof do
    begin
      Result.Add(GetRow);
      Ads.Next;
    end;
end;

使用示例：

procedure TForm3.Button1Click(Sender: TObject);
var
  l:TVarList;
  I,J: Integer;
  s:String;
  Function sep(idx:Integer):String;
   begin
     if idx=0 then
        Result := ''
     else
        Result := ' , ';    
   end;
begin
    ReportMemoryLeaksOnShutDown := true;
    l := GetAds2List(Ads1);
    for I := 0 to l.Count - 1 do
      begin
        s := '';
        for j := 0 to High(l[i])  do
           begin
             s := s + sep(j) + VarToStrDef(l[i][j],'*NULL*');
           end;
        memo1.lines.add(s);
      end;    
    l.Free;
end;

从TADOQuery返回TList

1 个答案: