delphi代码实现advstringgrid和fdquery的LiveBindings绑定

firedac控件的数据库连接、sql语句等网上很多，就不写了，只写一下绑定的代码：

需要增加两个控件 TBindSourceDB和TBindingsList。

procedure TForm3.Button2Click(Sender: TObject);
var
  mylink: TLinkGridToDataSource;
begin

   ......

  mylink := TLinkGridToDataSource.Create(self);
  mylink.DataSource := BindSourceDB1;
  mylink.GridControl := AdvStringGrid1;

  BindSourceDB1.DataSet := FDQuery1;

end;

使用完后自己记得释放mylink。

delphi12.1+TMS VCL UI Pack 13.1.0.1通过。