如何获得 FDQuery 结果？

Question

大家好，我的应用程序中有几个 forms，我有一个测试按钮，我想在其中触发从另一个单元获取的查询。 这是我的代码：

procedure TForm1.Button7Click(Sender: TObject);
var test : string;
begin
// test :=  Unit1.DataModule1.FDQuery2.Open.ToString;                  
 // Unit1.DataModule1.FDQuery2.ExecSQL;
 // test.ToString;
 // ShowMessage(Unit1.DataModule1.FDQuery2.Open);
 // Unit1.DataModule1.FDQuery2.Active := true;
  Unit1.DataModule1.FDQuery2.SQL.Text := 'SELECT CURRENT_DATE';
  Unit1.DataModule1.FDQuery2.Open();
  // Writeln(test);
end;

基本上，我希望能够获取结果数组或返回的任何数据类型并将它们分配给例如 TEdit，然后更改它等等。 我想将结果显示为字符串，但无法正确转换。 您将如何存储响应？ 如果有问题，请更正我的电话 - 因为我的 TFDQuery2 具有与 SQL.TEXT 相同的参数。 是否可以只触发该查询并以我可以显示或使用它的方式获得结果？

Answer 1

在TFDQuery.Open()执行SELECT查询后，您可以使用TFDQuery.Fields属性访问返回的字段值，例如：

procedure TForm1.Button7Click(Sender: TObject);
var
  test : string;
begin
  Unit1.DataModule1.FDQuery2.SQL.Text := 'SELECT CURRENT_DATE';
  Unit1.DataModule1.FDQuery2.Open();
  test := Unit1.DataModule1.FDQuery2.Fields[0].AsString;
  Edit1.Text := test;
  Unit1.DataModule1.FDQuery2.Close();
end;