简介：Ehlib 12.0.035 是面向 Delphi 13 开发者的经典数据库控件库版本，适用于需要在 VCL 项目中快速构建数据感知界面的中高级程序员，可解决表格展示、数据编辑、报表输出等常见业务场景的开发效率问题。压缩包为 rar 格式，整体约 437.61MB，包内文件数量与类型明细上游暂未提供，从体积判断应包含控件源码、编译单元、示例工程及配套文档等完整内容。该资源已有 69 人浏览学习，属于小众但垂直的 Delphi 控件资料。对于正在使用 Delphi 13 进行桌面端数据库应用开发的读者，可借助其中的控件组件快速搭建网格、树形列表与数据编辑界面，参考示例工程理解属性配置与事件调用方式，并结合源码排查兼容性与运行时异常，减少从零封装控件的时间成本，适合作为项目开发中的控件选型与集成参考。
1. Delphi 13 控件之 Ehlib 12.0.035：一个老牌表格控件的版本适配与工程化落地
Delphi 13 发布之后，很多从 Delphi 7、Delphi 2007 一路走过来的老项目开始考虑迁移。迁移过程中最容易被低估的，不是语言特性，而是第三方控件在新编译器、新 RTL、新 VCL 下的兼容性。Ehlib 就是典型代表——这套从 Delphi 5 时代活到现在的表格控件库，几乎每一个做数据库管理系统的 Delphi 开发者都接触过。它的核心价值在于：用一套控件把 DBGrid 做不到的分组、合计、多行表头、树形表格、过滤、查找全部补齐，而且和 TDataSet 体系无缝衔接。Ehlib 12.0.035 是 12.x 分支里比较成熟的一个构建，支持到 Delphi 12/13 的 VCL 体系。这篇文章不讲空泛的控件介绍，而是围绕「拿到这个包之后，怎么在 Delphi 13 里装好、跑通、避开迁移坑」这条线，把版本适配、安装流程、核心控件配置、常见翻车点一次讲清楚。适合正在做老项目升级、或者第一次在 Delphi 13 里引入 Ehlib 的从业者。
2. Ehlib 12.0.035 在 Delphi 13 下的安装与包结构拆解
2.1 先搞清楚压缩包里到底有什么
拿到 Ehlib 12.0.035 的包之后，不要急着双击安装。先解压到一个路径不含中文、不含空格的目录，比如D:\Components\Ehlib12。Ehlib 的安装脚本对路径空格非常敏感，这是血泪经验——路径里带空格会导致编译时找不到 DCU 输出目录。
解压后典型结构如下（不同构建可能略有差异，但核心目录一致）：
| 目录/文件 | 作用 | 是否必须 |
|---|---|---|
Source | 全部控件源码，含EhLibVCL、EhLibDB等 | 必须 |
Packages | 各 Delphi 版本的.dpk包工程 | 必须 |
Demos | 示例工程，用于验证安装是否成功 | 建议保留 |
Help | CHM 帮助文档 | 可选 |
Installer | 自动安装程序 | 视构建而定 |
关键点：Ehlib 是源码级控件，不是预编译 BPL。这意味着你必须用当前 Delphi 13 的编译器重新编译它，否则会出现「DCU 版本不匹配」的经典报错。这也是为什么网上流传的很多「CRACK」包直接给 BPL 是没用的——BPL 必须和编译器版本严格对应。
2.2 用 IDE 手动编译包：比自动安装更可控
自动安装程序在 Delphi 13 下经常因为权限或注册表路径问题失败，我一般直接手动编译。步骤如下：
第一步，打开 Delphi 13，菜单File → Open Project，定位到Packages目录下对应版本的包工程。Delphi 13 通常用EhLib120.dpk或类似命名的运行期包，以及EhLib120D.dpk设计期包。
第二步，在 Project Manager 里右键运行期包，选择Build。如果报错找不到单元，检查Tools → Options → Language → Delphi → Library里的Library Path是否包含了Source目录。
第三步，编译通过后Install设计期包。安装成功后，Tool Palette 里会出现EhLib分类。
// 验证安装是否成功的最小代码：在 Form 上放一个 TDBGridEh procedure TForm1.FormCreate(Sender: TObject); begin // 如果编译期能找到 TDBGridEh，说明包已正确安装 DBGridEh1.DataSource := DataSource1; DBGridEh1.TitleFont.Style := [fsBold]; // 开启多行表头，这是 Ehlib 相对原生 DBGrid 的核心优势 DBGridEh1.TitleParams.Rows := 2; end;这段代码的逻辑说明：TDBGridEh是 Ehlib 的核心表格控件，继承自TCustomDBGridEh。TitleParams.Rows := 2用于启用多行表头，这是原生TDBGrid完全做不到的。参数说明：TitleFont控制表头字体，DataSource绑定方式和原生 DBGrid 一致，迁移成本极低。
2.3 环境变量与搜索路径的配置
手动编译成功后，还要把Source目录加入全局搜索路径，否则新建工程引用 Ehlib 单元时会报File not found: EhLibVCL.dcu。
操作路径：Tools → Options → Language → Delphi → Library → Library Path，添加：
D:\Components\Ehlib12\Source D:\Components\Ehlib12\Source\EhLibVCL注意：不要只加Source根目录，Ehlib 12 把 VCL 和 FMX 的单元分开了，VCL 项目必须显式包含EhLibVCL子目录。这是 12.x 相比 11.x 的一个结构变化，很多从旧版本升级的人会在这里翻车。
3. TDBGridEh 核心能力配置：从分组到合计的实战参数
3.1 分组、合计与多行表头的组合配置
Ehlib 最被低估的能力是运行时分组 + 自动合计。原生 DBGrid 要实现这个，得自己写 OnCalcFields 加一堆逻辑，而 Ehlib 只需要设置几个属性。
procedure TForm1.SetupGrid; begin // 1. 开启分组：按 Country 字段分组 DBGridEh1.STFilter.Visible := True; // 显示过滤栏 DBGridEh1.FooterRowCount := 1; // 底部合计行 DBGridEh1.SumList.Active := True; // 激活合计列表 // 2. 指定分组字段 DBGridEh1.DataSource.DataSet.IndexFieldNames := 'Country'; // 3. 为 Amount 列配置合计 with DBGridEh1.Columns.Add do begin FieldName := 'Amount'; Title.Caption := '金额'; Footer.ValueType := fvtSum; // 合计类型：求和 Footer.DisplayFormat := '#,##0.00'; // 千分位格式 end; end;逻辑说明：FooterRowCount决定底部合计行数量，SumList.Active是 Ehlib 12 新增的合计管理器，比旧版的Footer更灵活。参数说明：Footer.ValueType支持fvtSum、fvtCount、fvtAvg等，DisplayFormat直接复用 Delphi 的 Format 语法。
这里有个容易忽略的点：IndexFieldNames设置分组字段后，必须确保数据集已打开且字段存在，否则分组不生效但也不报错——这种「静默失败」是 Ehlib 调试中最耗时的坑。
3.2 过滤栏与查找模式的参数边界
Ehlib 的STFilter（Smart Title Filter）是它区别于其他表格控件的杀手锏。配置得当，用户可以在表头直接下拉过滤，不需要额外写查询界面。
procedure TForm1.SetupFilter; begin // 启用表头过滤 DBGridEh1.STFilter.Visible := True; DBGridEh1.STFilter.Location := stflInTitleFilter; // 过滤栏放在标题行内 // 关键：过滤模式必须和数据集类型匹配 DBGridEh1.STFilter.Local := True; // True=本地过滤，适合 ClientDataSet/FDMemTable // False=服务端过滤，适合 FDQuery 等 end;参数说明：STFilter.Local是最容易设错的参数。如果数据集是TFDQuery直连数据库，设为True会导致每次过滤都全量拉取数据到本地，数据量大时直接卡死。正确做法是设为False，让过滤条件下推到 SQL。反之，如果用的是TFDMemTable，必须设为True，否则过滤无效。
3.3 树形表格与主从表的联动
Ehlib 支持把任意字段渲染成树形结构，这在做组织架构、BOM 清单时非常有用。
procedure TForm1.SetupTreeGrid; begin // 指定树形结构的父字段和标识字段 DBGridEh1.TreeView.ParentFieldName := 'ParentID'; DBGridEh1.TreeView.KeyFieldName := 'ID'; DBGridEh1.TreeView.Visible := True; // 展开层级控制 DBGridEh1.TreeView.ExpandLevel := 2; // 默认展开两级 end;逻辑说明：ParentFieldName和KeyFieldName构成父子关系链，Ehlib 会自动根据这两个字段构建树。参数说明：ExpandLevel控制初始展开深度，设为 -1 表示全部展开，设为 0 表示全部折叠。注意：树形模式下不能同时启用STFilter.Local，两者在数据排序上会冲突，表现为展开节点后顺序错乱。
4. Delphi 13 迁移 Ehlib 的避坑与排查清单
4.1 坑一：DCU 版本不匹配导致「Invalid compiler directive」
现象：编译时报E2003 Undeclared identifier或F2063 Could not compile used unit，指向 Ehlib 的某个.pas文件。
原因：压缩包里附带的 DCU 是用旧版 Delphi（如 Delphi 11）编译的，Delphi 13 的编译器无法识别。这是「CRACK」包最常见的问题——打包者只替换了授权逻辑，没有重新编译 DCU。
解决：删除Source目录下所有.dcu文件，强制 IDE 从.pas重新编译。命令行操作：
# 在 Ehlib 源码目录下执行，清理所有旧 DCU del /s /q D:\Components\Ehlib12\Source\*.dcu然后在 Delphi 13 里Build All重新编译包工程。这一步能解决 80% 的迁移编译错误。
4.2 坑二：设计期包安装后控件面板不显示
现象：Install显示成功，但 Tool Palette 里找不到TDBGridEh。
原因：Delphi 13 的 IDE 对设计期包的加载有缓存机制，旧缓存未清除时会加载失败但不报错。
解决：关闭 Delphi，删除%APPDATA%\Embarcadero\BDS\23.0\下的*.dst和*.det文件（23.0 对应 Delphi 13），重新启动 IDE。如果还不行，检查设计期包的Contains列表里是否包含EhLibReg单元——这个单元负责注册控件到面板。
4.3 坑三：运行时「Class TDBGridEh not found」
现象：程序编译通过，运行时抛出Class TDBGridEh not found或窗体设计器打不开。
原因：运行期包没有正确部署，或者 BPL 没有随 EXE 一起发布。
解决：确认Project → Options → Packages → Runtime Packages里勾选了 Ehlib 的运行期包。如果选择不用运行期包（静态链接），则确保Source路径在编译时可见。发布时，如果用了运行期包，必须把对应的 BPL 复制到 EXE 同目录。
4.4 坑四：中文排序与过滤失效
现象：STFilter对中文字段过滤时，输入中文无结果，或排序乱序。
原因：Ehlib 默认使用 ANSI 比较，Delphi 13 默认字符串是 Unicode，但数据集字段的Locale可能未正确设置。
解决：在数据集打开前设置字段的Locale：
FDQuery1.FieldByName('Name').Locale := 'zh-CN';或者在STFilter上强制指定比较模式：
DBGridEh1.STFilter.CaseInsensitive := True; DBGridEh1.STFilter.UseUnicode := True; // 关键：启用 Unicode 比较4.5 坑五：多线程下表格刷新导致 AV
现象：后台线程更新数据集后，主线程表格刷新时偶发Access Violation。
原因：Ehlib 的TDBGridEh不是线程安全的，后台线程直接操作数据集会触发 VCL 的跨线程访问。
解决：所有数据集操作必须通过TThread.Synchronize或TThread.Queue回到主线程。这是 Delphi 多线程开发的通用原则，但 Ehlib 因为内部有缓存机制，对时序更敏感。我一般会在数据更新后调用DBGridEh1.Invalidate而不是直接刷新数据集。
5. 进阶：用 Ehlib 做导出与打印的稳定方案
Ehlib 内置了导出到 Excel、HTML、文本的能力，但实际项目里最稳的不是内置导出，而是基于 TDBGridEh 的可见列动态生成。内置导出经常把隐藏列也导出去，或者格式丢失。
我常用的做法是遍历DBGridEh1.Columns，只导出Visible = True的列：
procedure ExportGridToCSV(Grid: TDBGridEh; const FileName: string); var I: Integer; Line: string; FS: TFileStream; SW: TStreamWriter; begin FS := TFileStream.Create(FileName, fmCreate); SW := TStreamWriter.Create(FS, TEncoding.UTF8); try // 导出表头 Line := ''; for I := 0 to Grid.Columns.Count - 1 do if Grid.Columns[I].Visible then Line := Line + Grid.Columns[I].Title.Caption + ','; SW.WriteLine(Line); // 导出数据 Grid.DataSource.DataSet.DisableControls; try Grid.DataSource.DataSet.First; while not Grid.DataSource.DataSet.Eof do begin Line := ''; for I := 0 to Grid.Columns.Count - 1 do if Grid.Columns[I].Visible then Line := Line + Grid.Columns[I].Field.AsString + ','; SW.WriteLine(Line); Grid.DataSource.DataSet.Next; end; finally Grid.DataSource.DataSet.EnableControls; end; finally SW.Free; FS.Free; end; end;逻辑说明：DisableControls和EnableControls包裹遍历过程，避免每移动一条记录都触发表格重绘，数据量大时性能差异是数量级的。参数说明：TStreamWriter用 UTF-8 编码，保证中文不乱码；逗号分隔符如果字段内容本身含逗号，需要额外做转义，这里为了简洁省略。
打印方面，Ehlib 自带TDBGridEh的打印预览，但分页控制比较粗糙。我的习惯是配合TfrxReport（FastReport）做正式打印，Ehlib 只负责屏幕展示。这样职责分离，后期维护成本低很多。
最后说一个我踩过的坑：Ehlib 的版本号里，12.0.035 这种构建号在源码里对应一个EhLibVer常量，升级时如果只替换部分文件，这个常量会对不上，导致About对话框显示错误版本。要么全量替换，要么手动同步这个常量。希望帮到你。
本文还有配套的精品资源，点击获取
