如何获得FDQuery结果？

Question

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

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;