Delphi SQL返回多维数组

Question

我创建了一个类型

type
  TStringArray = array of array of string;

function TDataModule4.GetList(TableName: String): TStringArray;
var
  i : Integer;
begin
  i:= 0;
  with TFDQuery.Create(Nil) do
  begin
    Connection := ADConnectionMySQL;
    SQL.Add(Format('Select * from %s', [TableName]));
    Open;
    First;
    while not Eof do
    begin

    end;
    Free;
  end;
end;

我知道使用 FieldByName 获取数据，但我想返回多维数组中的所有数据。我该怎么做？

这是我想要返回的方式：

数组[0]["column1"] = "value1"

数组[0]["column2"] = "value2"

数组[1]["column1"] = "value3"

数组[1]["column2"] = "value4"

数组[2]["column1"] = "value5"

数组[2]["column2"] = "value6"

Answer 1

这是一种方法（虽然我不能这样做）：

type
  TStringArray = array of array of string;
var
  Col: Integer;
  Row: Integer;
  Arr: TStringArray;
begin
  SetLength(Arr, FDQuery.Table.Rows.Count, FDQuery.Table.Columns.Count);

  for Row := 0 to FDQuery.Table.Rows.Count - 1 do
    for Col := 0 to FDQuery.Table.Columns.Count - 1 do
      Arr[Row][Col] := FDQuery.Table.Rows[Row].GetData(Col);
end;

Answer 2

我有一段时间没有使用 Delphi，也从未使用过 TFD-Query，但据我所知，这没有问题。我想把它写到评论中，但源代码在答案中可读性更好（未经测试）。 为了更好地理解，我引入了 Q 来表示您的查询名称，并引入了 A 来表示要填充数据的数组。

//var
A:TStringArray;
actLine, actCol:integer;

setlength(A,0);
actLine := 0;

while not Q.eof() do begin

  setlength(A,actLine + 1);
  setlength(A[actLine],FieldCount());

  for actCol := 0 to Q.FieldCount()-1 do
    A[actLine][actCol] := Q.Fields[actCol].AsString;

  inc(actLine);
  Q.Next;
end;

希望对你有帮助。

当然：array of array 产生一个二维数组，列和行编号。只有内容是字符串。您描述的结构应该自己实现。