FireDAC 中文字段过滤问题

当使用 FireDAC Filter 过滤数据的时候，通常这样写：

FDMemTable.Filtered := False;
FDMemTable1.Filter := '姓名=' + string(edtFilter.Text).QuotedString;
FDMemTable.Filtered := True;

将会报错：
[FireDAC][Stan][Eval]-107. Invalid character found [ 姓名 = '张三' ]

解决方法一：字段名称加上书名号[]

FDMemTable1.Filter := '[姓名]=' + string(edtFilter.Text).QuotedString;

解决方法二：通过 OnFilterRecord 事件处理

procedure TForm1.OnMyFilterRecord(DataSet: TDataSet; var Accept: Boolean);
beginAccept := DataSet.FieldByName('姓名').AsString = edtFilter.Text;
end;

附上完整代码，如下：

unit Unit1;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error,FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client,FireDAC.Stan.StorageBin, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids;typeTForm1 = class(TForm)grd1: TDBGrid;ds1: TDataSource;btnFiltered: TButton;edtFilter: TEdit;procedure btnFilteredClick(Sender: TObject);procedure FormCreate(Sender: TObject);privateFilter: string;FDMemTable: TFDMemTable;procedure OnMyFilterRecord(DataSet: TDataSet; var Accept: Boolean);public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.OnMyFilterRecord(DataSet: TDataSet; var Accept: Boolean);
beginAccept := Filter.IsEmpty or (DataSet.FieldByName('姓名').AsString = Filter);
end;procedure TForm1.btnFilteredClick(Sender: TObject);
beginFilter := edtFilter.Text;FDMemTable.Filtered := False;// 方法一FDMemTable.Filter := '[姓名]=' + Filter.QuotedString;FDMemTable.Filtered := True;
end;procedure TForm1.FormCreate(Sender: TObject);
beginFDMemTable := TFDMemTable.Create(Self);with FDMemTable dobeginwith FieldDefs dobeginClear;Add('姓名', ftWideString, 50);Add('年龄', ftInteger);end;CreateDataSet;AppendRecord(['张三', 35]);AppendRecord(['李四', 31]);AppendRecord(['王五', 40]);// 方法二// OnFilterRecord := OnMyFilterRecord;end;ds1.DataSet := FDMemTable;
end;end.