简介这是一套基于 Delphi 开发的第三方 Unicode 控件套装核心价值在于补足 VCL 组件对字符集支持不足的缺陷使中文、日文、韩文乃至欧洲多语言文本能在同一界面中流畅呈现特别适合承担国际化改造任务的桌面程序项目。压缩包共收录 112 个文件体积仅 252KB结构相当紧凑46 个 pas 源码文件可直接阅读并二次开发12 个 res 承载运行期资源11 个 dcr 提供设计期图标另有 9 个 dpk 包描述文件、4 个 bdsproj 工程文件配合 bpg、bpk、inc、reg、dfm 等辅助文件可覆盖不同版本 IDE 的编译与安装需求。资源中还包含 Source 源码目录、Example 示例工程、Design 设计期素材以及配套授权说明与快速入门文档开发者不仅能直接部署使用还可以对照源码理解控件的工作原理并进行定制同时借助示例工程快速验证界面效果。目前已有 1252 人浏览学习适合承担多语言应用改造、Unicode 迁移及控件定制开发的中高级 Delphi 开发者。1. TNT Unicode Controls 2.3.0老 Delphi 项目甩掉乱码的第一步维护 Delphi 老项目的程序员基本都经历过这种场面Caption 里明明写的是中文编译出来变成一排问号数据库里存好的俄文姓氏放到 Edit 框里直接拦腰截断。这套 TNT Unicode Controls 2.3.0 就是为解决这类问题存在的它给 ANSI 时代的 Delphi 塞进了一整套支持宽字符的界面控件替身。装上它以后Label、Edit、Memo、StringGrid 这些高频控件能原生接收和显示 WideString不用在业务代码里到处转码。适合正在维护 Delphi 7 到 Delphi 2007 老项目、需要做多语言界面、或者被数据库里的 Unicode 数据反复折磨的开发者。2. 为什么非换不可Delphi 的编码演进与 TNT 选型逻辑在讨论 TNT 控件究竟值不值得往项目里引之前得先把 Delphi 的编码发展脉络理清楚。只有理解了老版本 IDE 欠下的技术债才知道这套第三方控件替身解决的核心问题是什么也才知道迁移时哪些地方容易想当然。2.1 老版本 Delphi 的编码债AnsiString 与 WideString 的边界Delphi 7 及更早版本里默认字符串类型是 AnsiString一个字符占用一个字节通过当前系统代码页解释。简体中文 Windows 默认的 GBK 代码页能表达汉字但一旦编译出来的程序跑到俄文或西欧系统上代码页对不上所有硬编码在 Form 里的字符串全会变乱码。当时的补救方案是 WideString。WideString 是 COM 兼容的宽字符字符串每个字符固定两个字节内部按 UTF-16 思路存储理论上可以承载几乎所有语言的文字。但它有两个硬伤一是性能不如 AnsiString频繁拼接会伴随内存重分配二是 VCL 原生控件并不完整支持 WideString 的显示和输入。典型的例子是 TEdit 的 Text 属性。虽然接口上接受 String但 VCL 内部会对字符串做隐式转换底层发送给 Windows 的消息仍是 ANSI 版本遇到超出代码页范围的字符就直接丢数据。TNT 控件解决这个问题的路径很直接没有去改 VCL 的源码而是从 TCustomControl 分支重新实现了一套控件在内部统一使用 WideString 和宽字符 API比如给编辑框发送 WM_SETTEXT 时改用 SendMessageW 一族函数。这就绕开了 VCL 默认的 ANSI 消息通道让显示层真正触碰到了宽字符数据。三种字符串类型的差异可以总结成一张表类型存储方式主要用途注意点AnsiString单字节按代码页解释Delphi 7 默认类型跨系统乱码WideString双字节UTF-16 思路COM 接口、宽字符处理拼接性能差UnicodeString双字节引用计数Delphi 2009 起默认类型老版本不存在在有 TNT 之前我就是在业务代码里写一层又一层的转码函数用 StringToWideChar、WideCharToString 来回倒腾数据界面控件本身仍然不做宽字符适配。所以当时我们心里都明白这类方案治标不治本控件一天不换乱码的根就在。2.2 三套方案对比TNT 原生控件与裸 API 怎么选处理 Delphi 7 项目的 Unicode 显示问题行业里最常讨论的实际是三条路线。第一条就是整体升级 IDE 到 Delphi 2009 及以上版本让官方 VCL 原生支持 UnicodeString。这条路线对老项目来说工程量非常大第三方组件大量基于 AnsiString 的代码会集中报错需要渐进式改造少则一个月多则半年。除非公司愿意为技术债买单否则在老项目维护场景里很难推开。第二条路线是硬编码调用 Win32 API。比如让控件显示一段宽字符文本可以给 TWinControl 发 WM_SETTEXT 消息窗口类名用宽字符版注册。这方案的问题在于能用但很零碎输入法、剪贴板、键盘消息都需要自己处理一层。实际项目中你会发现真正难的不只是显示还有用户在编辑框里输入中文时 IME 的配合。如果底层消息通道不完整输入法候选框能弹出来上屏时照样截断。第三条路线就是 TNT Unicode Controls。它在控件层面把宽字符封装完整对业务代码的侵入很小原先是 TEdit 的地方改成 TnTEdit原先的 TLabel 改成 TnTLabel属性名、事件名、使用方式几乎一样。对于已经写好的 Form 单元大部分情况只需要替换控件类型声明和重新指定属性值。我的习惯是先用它处理完界面显示再反推去清理数据库访问层的编码转换。这样一个阶段只做一个层面的事排查问题的时候不至于乱。2.3 2.3.0 版本的价值稳定与覆盖面的平衡点TNT 控件从早期版本到成熟版本经历了多轮迭代。2.3.0 这个被很多人长期保存的版本有几个特点值得说。首先是控件的覆盖范围完整日常界面用的 TnTLabel、TnTEdit、TnTMemo、TnTButton、TnTCheckBox、TnTStringGrid、TnTListBox 都有而且对原有 VCL 属性和事件的保留度很高老代码迁移时很少出现“找不到属性”的情况。其次是这个版本处于一个相对收敛的状态不像更早版本那样存在明显的消息处理漏洞也不像后续激进重构版那样引入过兼容性回归。另一个现实原因在于安装源。很多开发者的遗留代码工程里第三方依赖被冻结在特定版本上升级控件包会牵连到一堆 DPK 包的重新编译和 BPL 的替换。2.3.0 因为流通量大遇到问题能搜到的解决方案最多很多老工程师的博客里记录的坑基本也是基于这个版本。所以如果你接手一个还在用 TNT 的项目先确认版本号一般会看到 2.3.0这是大多数老工程选择的落点。3. 控件族拆解从 TnTEdit 到 TnTStringGrid 的常用搭配与数据绑定控件包的价值不在名字里在实际替换和联调里。这一章挑选日常开发中最常用的几个控件逐个说明它们和原生 VCL 控件的差异以及绑定 Unicode 数据时的正确姿势。3.1 控件覆盖面日常界面里最高频的六个替身TNT 包提供的控件基本覆盖了传统 VCL 窗口程序的常用集合。我按使用频率排个序最靠前的几个通常是一个业务窗体里出现次数最多的控件类型TNT 控件替代原生控件主要适用场景TnTLabelTLabel静态文本显示TnTEditTEdit单行文本输入与展示TnTMemoTMemo多行文本编辑TnTButtonTButton按钮文字显示TnTCheckBoxTCheckBox多选项文字TnTStringGridTStringGrid表格数据展示替换过程里最容易忽略的是 TnTLabel。Label 在 VCL 里属于 TGraphicControl不接收输入焦点很多人在排查乱码时不会第一时间怀疑它。但实际上Label 的 Caption 在绘制时走的仍是 ANSI 文本输出函数中文和西里尔字母一样会出问题。TNT 版本的标签控件把绘制逻辑改成调用 TextOutW 一类的宽字符 API所以即便只是展示一段静态提示文字也建议一并替换。3.2 用 TnTEdit 承接数据库里的 Unicode 字段把数据库里的多语言文本带出来显示是 TNT 控件最常见的应用。很多老项目的数据库连接方式是 ADO数据库字段本身存储的是 NVARCHAR 类型但 Delphi 7 的字段访问接口默认返回 ANSI 字符串中间一次转换就会丢字。这里给一个典型的取值并展示到 TnTEdit 的代码片段procedure TForm1.LoadCustomerName(ACustomerID: Integer); var LQuery: TADOQuery; begin LQuery : TADOQuery.Create(nil); try LQuery.Connection : ADOConnection1; LQuery.SQL.Text : SELECT FullName FROM Customers WHERE ID :ID; LQuery.Parameters.ParamByName(ID).Value : ACustomerID; LQuery.Open; TnTEdit1.Text : LQuery.FieldByName(FullName).AsWideString; finally LQuery.Free; end; end;这段代码的关键在最后一行赋值语句。AsWideString 直接从字段缓冲区里拿宽字符数据然后赋给 TnTEdit 的 Text 属性。这里要特别注意一个最常见的错误写法用 AsString。AsString 在 Delphi 7 里会先经过一次 ANSI 转换如果字段里存的是俄文或阿拉伯文字到这一步已经被替换成问号了后面 TnTEdit 再宽字符也救不回来。参数命名我习惯用 ID 而不是简单的 id。在 ADO 环境里参数名默认不区分大小写但保持和 SQL 文一致能减少连接池解析的异常这是一种低成本的保险。3.3 TnTStringGrid 在 Unicode 数据下的单元格写入StringGrid 是另一种高频踩坑控件。它的 Cells 属性虽然声明为 String但内部数据存储和管理方式在原生版本里同样是 ANSI 通道单元格一多多语言数据就花屏。在 TNT 版本里TnTStringGrid 的单元格读写接口被重写为宽字符路径。实际使用中我建议按行写入时用一个统一的赋值函数procedure TForm1.FillGridRow(AGrid: TnTStringGrid; ARowIndex: Integer; const AValues: array of WideString); var I: Integer; begin for I : Low(AValues) to High(AValues) do AGrid.Cells[I, ARowIndex] : AValues[I]; end;这里把数组元素类型直接定为 WideString相当于在入口就卡住了字符串类型。调用方传入的不管是 AnsiString 还是 UnicodeString都会先转换成 WideString再进入单元格的宽字符存储路径。有人习惯先拼好一个大字符串再往 Cells 里整块赋反而容易在拼接阶段丢字。还要提醒一点设计期在对象监视器里编辑 TnTStringGrid 的 Cells 属性不完全可靠部分版本在 IDE 内部的处理仍走 ANSI。所以表格里的多语言数据我一般都在运行期用代码填充不在设计期预置这对后面做多语言动态切换也更友好。4. 安装 TNT 2.3.0源码包编译、路径设置与面板验证拿到源码包之后安装流程比一般组件包要繁琐一些因为 TNT 需要分运行时包和设计时包两次编译。整个过程不复杂但顺序错了非常容易翻车。这一章把安装步骤和每一步背后的目的拆开讲。4.1 安装前准备IDE 版本、源码路径与 DCU 输出目录安装 TNT 2.3.0 之前先确认三点。第一IDE 版本支持范围常见的是 Delphi 7、Delphi 2005、Delphi 2006、Delphi 2007这些版本都能顺畅编译。Delphi 2009 之后官方 VCL 已经原生支持 Unicode装不装 TNT 意义不大而且可能和官方 UnicodeString 体系产生二义性不建议混用。第二源码解压路径不能带空格和中文。TNT 的 DPK 文件在编译时会把源码目录写入 DCU 搜索路径路径里有中文会导致 IDE 的 Library 路径解析失败编译时出现莫名其妙的 “File not found” 错误。我习惯放在 D:\ThirdParty\TNT2.3.0 这种纯英文路径下。第三确定 DCU 输出目录。TNT 包通常有多个 DPK 文件每个包对应不同的 IDE 版本如果让 DCU 都输出到源码根目录后期不同版本混编会出现 DCU 互相覆盖的情况。我会为当前 IDE 单独建一个子目录比如 D:\ThirdParty\TNT2.3.0\DCU_D7编译时指定输出到该目录。4.2 编译安装流程从 DPK 到 BPL 的两步走TNT 的安装严格分两步先编译运行时包再编译设计时包。运行时包包含控件的实际实现代码设计时包负责把控件注册到 IDE 组件面板上。如果只装设计时包而不先编译运行时包IDE 会提示找不到运行时 BPL。常见做法是直接打开对应版本的 DPK 文件在 IDE 里右键 Compile然后再右键 Install。这里用命令行方式演示一下更底层的编译逻辑# 以 Delphi 7 为例两条命令分别编译运行时包和设计时包 dcc32 -B TNT_RUNTIME_D7.dpk dcc32 -B -JT TNT_DESIGN_D7.dpk参数解释-B 表示全量重新编译忽略已经存在的 DCU 缓存确保改动的源码生效-JT 表示生成设计时包编译结果包含控件注册代码后续可以在 IDE 的 Component 菜单中直接 Install。如果不加 -JT编译出来的只是运行时库组件面板上不会出现任何新控件。命令行编译通过后打开 Delphi 的 Component → Install Packages点击 Add 按钮选择刚才生成的 BPL 文件。此时组件面板会刷新出现 TNT 相关的控件页签。控件的包名以 TnT 前缀开头点击页签里任意一个控件在对象监视器里能看到完整的属性列表就说明安装成功。4.3 安装后的验证在空窗口上把控件跑通装完控件后建议不要直接往大项目里引先建一个空窗体验证环境是否正常。这个验证步骤能过滤掉一大半后面的调试时间。在空窗体上放一个 TnTEdit 和一个 TnTLabel写一段 FormCreate 事件把确认会触发编码问题的文本放进去procedure TForm1.FormCreate(Sender: TObject); begin TnTEdit1.Text : 中文测试如果显示正常控件安装成功; TnTLabel1.Caption : Українська: перевірка; end;运行后观察两点一是 TnTEdit 里的中文是否完整显示二是 TnTLabel 里西里尔字符是否出现问号或方框。如果显示正常说明宽字符消息通道已经打通如果汉字正常但西里尔字母异常通常不是控件问题而是系统区域设置缺了对应语言支持Windows 的“非 Unicode 程序的语言”设置需要调整。这个验证窗体我建议保留在工程里不要删掉。之后改动 TNT 包的编译选项或升级版本时重新运行一遍这个窗体能快速确认基础环境是否被破坏。5. 避坑与排查六个高频问题与修复记录TNT 控件安装和使用的坑不少有些问题看起来像控件本身有 Bug实际是使用姿势不对。这一章把我遇到过的和身边同事反复踩的问题整理成六条每一条都按现象、原因、解决的顺序讲清楚。5.1 中文变成问号但控件明明已经换成 TnT 系列现象窗体上的 TnTEdit 能正常显示英文但中文仍显示成问号。原因最常见的情况是这个窗体里还有别的原生 VCL 控件比如 TComboBox 或 TListView 没替换掉。数据先经过原生控件再从原生控件往外传时已经被 ANSI 转换伤害过一轮。另一个原因是窗体单元的 uses 列表里没有正确引入 TNT 的单元文件控件类型退回到 VCL 默认实现。解决先在窗体上做一次全面排查把所有 TEdit、TLabel、TComboBox、TListView 逐个换成对应的 TnT 前缀控件。换完之后检查 uses 列表是否包含 TNT 相关单元。重点看 Form 文件里的对象声明确认 TnTEdit 的类名没有拼错。5.2 编译报错“File not found”或找不到 DCU 文件现象新建一个窗体引用 TnTEdit 后编译IDE 报错提示找不到某个 TNT 相关的 DCU 文件。原因TNT 源码路径没有加进 IDE 的 Library 搜索路径。很多人只编译了 DPK但没有把问题源码目录配置到全局搜索路径里编译工程时 IDE 无法定位到单元文件。解决打开 IDE 的 Tools → Options → Library → Library Path把 TNT 源码所在目录添加进去确认路径中无中文无空格。如果工程里使用了独立目录存放第三方包也可以在 Project Options 的 Search Path 里单独指定。5.3 运行期字体显示异常汉字和英文混排时高度错位现象窗体运行后TNT 控件里的中英文混排显示正常但行高不一致中文略微被截断。原因字体设置没跟上。界面字体指定为 Arial 这类西文字体而 Arial 没有中文字形定义Windows 会做字体回退回退后的字体会和原字体行高不同导致显示不齐。解决在统一设置 TNT 控件的 Font.Name 时中英文混排界面优先使用 Tahoma 或 Segoe UI这两种字体在 Windows 中文环境下的回退效果好。更省事的做法是在窗体基类的 FormCreate 里统一设置 Font.Charset 为 DEFAULT_CHARSET让系统自己完成字形匹配。5.4 TnTStringGrid 单元格里西里尔文字显示一半现象表格里写入的俄文字符串运行期只能显示前半段后半段丢字或变成空白。原因单元格数据写入时源字符串被隐式转换过。检查代码后发现问题出现在给 Cells 属性赋值之前数据被拼进了一个 AnsiString 变量俄文字符在赋值瞬间就被截断了。解决凡是需要进入 TnTStringGrid 的多语言文本全部用 WideString 变量做中转。写一个小函数专门收窄入口函数参数声明为 WideString在函数内部再赋值给 Cells 属性。这样能确保转换在宽字符域内完成。5.5 组件面板上出现两组 TNT 控件现象安装完成后组件面板出现两套 TNT 页签或者同一控件出现两个图标。原因安装过程中重复编译了设计时包比如先手动运行了 DPK 的 Install后来又通过命令行编译又添加了一遍 BPL。解决打开 Component → Install Packages在列表里找到重复的 TNT BPL选中多余的那一项点击 Remove。如果两个 BPL 文件名相同但路径不同要确认保留的是最新编译生成的那个路径下的 BPL。5.6 拖动窗口大小时 TNT 控件文字闪动现象运行期拖动窗口边缘控件上的文字出现闪烁或短暂消失。原因TNT 控件的重绘逻辑在部分显卡驱动下依赖特定消息顺序窗口 resize 过程中消息队列里插入的大量 WM_SIZE 会弱化 WM_PAINT 的执行表现为文字来不及重绘。解决在窗体的 OnResize 事件里调用 TNT 控件的 Invalidate 方法强制触发重绘。如果窗体上控件特别多可以循环遍历所有 TNT 控件统一刷新procedure TForm1.FormResize(Sender: TObject); var I: Integer; begin for I : 0 to ComponentCount - 1 do if Components[I] is TnTEdit then TnTEdit(Components[I]).Invalidate; end;这种暴力刷新不优雅但对于重绘丢字的问题是最容易定位和收效的保险手段。6. 进阶做法用 TNT 控件搭一套轻量多语言框架控件替换完成后下一个自然需求就是多语言切换。我一般会把界面上的所有可翻译文本抽到外部语言文件里TNT 控件的 WideString 兼容性正好让这个过程干净不少。具体思路是语言文件按控件 Name 作为键值控件的标题或文本作为值。切换语言时遍历窗体上所有部件根据 Name 查表并赋值。下面是一个最小可运行的加载器procedure TForm1.LoadLanguage(const AFileName: string); var LStrings: TStringList; I: Integer; LKey, LValue: string; begin LStrings : TStringList.Create; try LStrings.NameValueSeparator : ; LStrings.LoadFromFile(AFileName); for I : 0 to ComponentCount - 1 do begin LKey : Components[I].Name; LValue : LStrings.Values[LKey]; if LValue then Continue; if Components[I] is TnTEdit then TnTEdit(Components[I]).Text : LValue else if Components[I] is TnTLabel then TnTLabel(Components[I]).Caption : LValue else if Components[I] is TnTButton then TnTButton(Components[I]).Caption : LValue; end; finally LStrings.Free; end; end;这套加载器的工作前提是语言文件本身编码正确。TStringList 在 Delphi 7 下加载文件时默认按 ANSI 解析所以语言文件如果存成 UTF-8反而会读成乱码。稳妥做法是把语言文件保存为系统 ANSI 编码或者在加载后手动做一次编码转换。还有一点语言文件第一行不要写 BOMTStringList 对 BOM 的处理在旧版 IDE 中不可靠容易把第一个键名读脏。自从我吃过“翻译字符串硬编码在 FormCreate 里”的亏之后凡是涉及多语言的窗体一律强制走外部语言文件。这样后来客户提出增加第三种语言时只需要补一份语言文件再跑一次 LoadLanguage不用动任何窗体代码。希望你也能用同样的方式把这份 TNT 资源用得更顺手。本文还有配套的精品资源点击获取