Tnt 如何显示 UTF-8 的资料库内容

最近把公司的资料库转为 UTF-8，目前 MYSQL 转好了，ZeosLib 也解决了，不过用 Tnt 显示出来的资料还是乱码

原来 Tnt 用的内码是 Unicode 而不是 utf-8，他必须要透过 UTF8Decode 及 UTF8Encode 转换才可以正常
后来上网找到一篇教学，不过他文章中好像有点问题，因为他说要改 TntDB.pas 中的三行程式，不过他贴出来的程式码其中有两段重覆了，我试着改不行，后来发现其实是要改以下三个函数才可以，大家有需要的，可以照着改看看..

function GetWideDisplayText(Field: TField): WideString;
var
WideField: IWideStringField;
begin
if Field.GetInterface(IWideStringField, WideField) then ..

访客只能看到部份内容，免费 加入会员

x0

后来我发现新版的 tnt 元件已有支援 UTF-8 了，只要把程式中用 ZeosLib 建的 TStringField 改为 TTntStringField ，还有 TMemoField 改为 TTntMemoField 即可，这个要改两个地方，一个是原始码，一个是 From 的原始码..^^

x0