grid里显示utf8

1.保存时，先AnsiToUtf8转换，然后存入数据库；
2.显示时，用dataset的计算字段来实现，在事件中实现转换：
procedure TForm1.smpDS1CalcFields(DataSet: TDataSet);
begin
? smpDS1.FieldByName('name1').AsString := Utf8ToAnsi(smpDS1.FieldByName('name').AsString);
? smpDS1.FieldByName('title1').AsString := Utf8ToAnsi(smpDS1.FieldByName('title').AsString);
end;
'name1','title1'是新增的计算字段，'name','title'是数据库utf8字段，需要事先用dataset的Fields Editor把这些字段都加上；