简介DevExpress.ExpressSpreadSheet.v1.38 for Delphi/BCB 源代码包面向需要在 Delphi 与 C Builder 应用中集成类 Excel 电子表格能力的开发者适合希望深入组件内部实现、排查使用问题或开展二次开发的中高级读者。压缩包共 382 个文件约 2.81MB以 pas、cpp、dpk、bpk、dfm、res 等类型为主分别对应 Pascal/C 源码、包工程、窗体与资源文件另含少量示例表格、帮助文档和发布说明。已有 447 人学习。源码覆盖电子表格引擎、数据绑定、公式解析、样式格式、界面交互、图形绘制及 XP 主题适配等模块配合特性演示、股票表、自定义函数等示例工程可帮助读者梳理组件架构与 API 组织方式理解 GDI 渲染和通用库复用思路并为自定义功能、性能优化与项目定制提供参照。1. 一个 Delphi 老系统里的表格需求最后落到了一份源码包上去年帮人看一个跑了七八年的 Delphi 进销存客户提的要求很朴素原来那张只读的报表网格要换成能敲公式、能冻结窗格、能直接把结果另存成 xlsx 的电子表格。用 StringGrid 自己糊一套光公式重算、单元格格式和合并单元格这三件事就能把人耗死更别说导入导出还得跟 Excel 对齐。DevExpress.ExpressSpreadSheet 这套 v1.38 for Delphi/BCB 的源代码解决的正是这个场景——它不是一层表格皮肤而是带公式引擎、单元格样式、多 Sheet 管理、Office 格式读写的完整表格内核并且以 Pascal 源码形式交付可以跟着 IDE 一起编译、断点、改。适合手上有 Delphi 或 CBuilder 工程、需要在客户端里嵌表格、又不希望被二进制包卡住命脉的开发者。下面按包结构、对象模型、编译跑通、踩坑、二次开发这条线拆下去能直接抄的部分我都把代码贴出来。2. 包结构与依赖链v1.38 源码包里的四层组织拿到一个控件源码包我第一件事不是打开 Demo而是先看.dpk里的requires和contains。这两段决定了你能不能编过也决定了后面出问题该往哪个方向查。ExpressSpreadSheet 的源码包组织得比较典型运行期单元、设计期注册单元、IDE 相关的资源、以及一堆 Demo 分开放。先把依赖链理顺后面的编译和调试才有意义。2.1 编译前提编译器版本、运行库与搜索路径这套源码不是自包含的。表格控件要画边框、要处理主题、要用到通用的图形与容器类这些能力来自它的底层库ExpressLibrary 那一层常见单元前缀是cx、dxCore。所以完整编译的前提是本机已经装了与之配套的底层库源码或二进制包并且版本对得上。版本错配是新手最容易翻车的地方——表现往往是编译到一半报cxClasses找不到或者找到了但某个方法签名不匹配。我一般的检查顺序是这样先在 IDE 的 Library Path 里确认底层库的路径排在 SpreadSheet 源码路径之前让编译器先解析依赖然后打开.dpk看requires里列了哪几个包逐个确认它们在 IDE 里已安装最后才去编译。搜索路径的顺序比有没有加更重要两个版本的cxClasses.pas同时出现在路径里编译器不报错但链接出来的东西会非常古怪。组成常见形态作用编译时机运行期包*_R.dpk/.dproj把核心单元打成 bpl供最终 exe 引用最先编设计期包*_D.dpk/.dproj向 IDE 注册组件、属性编辑器、图标第二个编底层依赖库独立安装的源码/二进制包图形、容器、主题、通用对话框提前装好资源与字符串*Strs.pas、res 文件多语言字符串、位图、光标随包编译Demo 与帮助独立目录用法参考、API 说明最后按需编需要提醒一点CBuilder 侧和 Delphi 侧用的是同一批 Pascal 源码但 BCB 需要额外的.hpp头文件生成步骤。如果你只编了 Delphi 包就跑去 BCB 里拖控件会看到找不到头文件这类让人一头雾水的错误。正确做法是先用 Delphi 编译一遍生成 hpp再在 BCB 里引用或者直接在 BCB 的工程选项里把生成头文件的开关打开。2.2 目录与单元分工从控件单元往下捋把Source目录摊开看单元的切分基本遵循控件—模型—渲染—公式—外围的分层。以我手上这份为例核心单元的职责大致如下单元常见命名层主要职责dxSpreadSheet.pas控件层注册TdxSpreadSheet暴露Sheets、Options、事件dxSpreadSheetClasses.pas对象模型Sheet、Cell、样式、选区、撤销栈的类声明dxSpreadSheetCore.pas渲染/交互滚动、绘制、命中测试、就地编辑器调度dxSpreadSheetFormula.pas公式引擎词法、语法、函数表、依赖与重算dxSpreadSheetFunctions.pas公式引擎内置函数的具体实现SUM、VLOOKUP 之类dxSpreadSheetConditionalFormatting.pas扩展特性条件格式规则与求值dxSpreadSheetDataValidation.pas扩展特性输入校验规则dxSpreadSheetPrinting.pas外围分页、打印预览dxSpreadSheetReg.pas设计期组件注册、图标、属性编辑器挂载这个划分不是摆设它直接决定了你改东西该动哪个文件。想加一个内置函数去函数实现单元想改单元格的绘制效果去 Core 或 Classes 的绘制方法想改公式的解析行为才轮到 Formula 单元。见过有人在控件单元里硬改绘制逻辑结果升级一次源码全部作废——血泪经验是动扩展点别动主干。还有一类单元容易被忽略字符串资源单元。控件的提示、错误信息、对话框标题大多走这里。想做界面英文化或者定制提示语改这一个文件比到处找硬编码字符串省事得多也避免了直接改逻辑单元带来的合并冲突。2.3 包分组一份.dpk里藏着的编译顺序包文件里requires写的是我需要谁contains写的是我包含谁。编译器会严格按requires去解析符号所以顺序错了就是一片红。常见的组织方式是把运行期和设计期拆成两个包运行期包含所有核心单元设计期只包含注册单元并requires运行期包。// 运行期包示意只装核心单元不含任何 IDE 相关代码 package dxSpreadSheet_R; requires rtl, // 运行库 vcl, // VCL 基础 cxLibrary; // 底层图形/容器库版本必须与源码匹配 contains dxSpreadSheet in Source\dxSpreadSheet.pas, dxSpreadSheetClasses in Source\dxSpreadSheetClasses.pas, dxSpreadSheetCore in Source\dxSpreadSheetCore.pas, dxSpreadSheetFormula in Source\dxSpreadSheetFormula.pas, dxSpreadSheetUtils in Source\dxSpreadSheetUtils.pas; // 其余核心单元略 end.这里的关键信息有两条。第一运行期包不能引用DesignIntf、ToolsAPI这类只在 IDE 里存在的单元否则编出来的 bpl 在客户机上加载会直接失败。第二requires里的底层库必须在 IDE 中已安装且版本一致否则编译器解析到的是旧符号报错信息会指向源码里一行看起来毫无问题的代码这种黑匣子式的报错最耗时间。我的习惯是每次换源码版本先把底层库和这套包的版本号抄在同一个文本里对齐再开始编译。3. 对象模型拆解一个单元格从赋值到重算走了哪几步控件用起来简单Cells[0,0] : x一行就完事。但真出问题时——比如为什么赋值之后界面没刷新、为什么公式算出来是旧值、为什么一万行数据卡成幻灯片——你得知道这一行背后发生了什么。这一节把对象模型和赋值链路拆开讲看懂了这段后面九成的性能问题都能自己定位。3.1 三层结构控件、View、Cell 各管一摊这套控件的对象模型是三层最外层是TdxSpreadSheet它是个容器管 Sheet 列表、全局选项、事件分发中间层是 Sheet 的 View管某一个工作表的单元格集合、选区、冻结、行列尺寸最内层是 Cell管一个格子的值、格式和样式引用。三层不是继承关系而是持有关系所以你不能指望从控件直接拿到某个单元格必须经由 Sheet。var ASheet: TdxSpreadSheetTableView; ACell: TdxSpreadSheetCell; begin // 控件 - Sheet按索引取越界会抛异常取值前先判 Count if dxSpreadSheet1.Sheets.Count 0 then Exit; ASheet : dxSpreadSheet1.Sheets[0] as TdxSpreadSheetTableView; // Sheet - Cell按 [列, 行] 取行列都从 0 开始 ACell : ASheet.Cells[0, 0]; // A1 ACell.AsString : 物料编码; // 值写入 ACell.AsInteger : 1001; // 数值和字符串走不同分支 // 列宽、行高挂在 View 上不是挂在 Cell 上 ASheet.ColWidths[0] : 120; ASheet.RowHeights[0] : 24; end;这段代码有几个参数要说明。Sheets[0]的类型是 View 的基类实际使用时要么用as强转成TdxSpreadSheetTableView要么直接用基类暴露的通用成员Cells[列, 行]的索引顺序是先列后行和 Excel 的 A1 记法正好相反写反了不会报错只会把数据写到隔壁格子里这种错查起来极其难受。AsString和AsInteger不是简单的类型转换它们会触发不同的内部存储分支字符串格和数值格在 Formula 引擎眼里是两种类型后者才能参与算术运算。提示不同小版本的方法名和属性名会有出入编译报未声明的标识符时按住 Ctrl 点进去看dxSpreadSheetClasses.pas里的真实声明比在搜索引擎里碰运气快得多。3.2 赋值链路一次 setter 到底干了什么表面上一行赋值内部其实是一串动作。以常见的实现路径来说setter 先检查目标格是否落在合并区域内是则改写合并区域的主格然后触发OnCellChanging之类的前置事件给业务代码一个否决的机会接着写入底层存储把该格标记为脏再把自己登记到公式引擎的依赖变更集合里最后Invalidate一个矩形区域等下一次重绘统一绘制。明白了这条链路很多玄学现象就有解释了。为什么一万次赋值慢因为默认每次赋值都走完整链路一万里程碑式地触发一万次失效与重算。为什么公式不刷新因为赋值的格子没被登记进依赖集合引擎不知道要重算谁。为什么界面卡住不动因为重绘被压在同一个消息循环里批量操作没有挂起界面更新。正确的批量写法必须把链路折叠起来dxSpreadSheet1.BeginUpdate; // 挂起重绘与布局计算 try ASheet : dxSpreadSheet1.Sheets[0] as TdxSpreadSheetTableView; for I : 0 to 9999 do begin ASheet.Cells[0, I].AsInteger : I; ASheet.Cells[1, I].AsString : Item- IntToStr(I); end; finally dxSpreadSheet1.EndUpdate; // 这里才真正重绘一次、重算一次 end;BeginUpdate/EndUpdate必须配对而且EndUpdate要放在finally里否则循环里抛个异常整个控件就永久处于挂起状态界面上什么都不会动看起来像死机。这是我最早踩的坑之一后来养成习惯只要进了BeginUpdate后面立刻敲try...finally再往里写业务。至于公式重算多数版本还提供了单独挂起重算的开关大批量灌数据时把重算也一起挂起速度能再上一个台阶。3.3 公式引擎解析、依赖与重算队列公式引擎是这套源码里最有含金量的部分。它的工作流大致是拿到SUM(A1:B10)这样的字符串先做词法切分把SUM、A1:B10、括号、逗号拆成 token再做语法分析组装成表达式树然后查函数表找到SUM的实现执行时把区域展开成单元格引用集合逐个取值计算。更关键的是依赖管理。引擎需要知道哪些格子的值依赖哪些格子才能在某格变化时精确重算相关的那一小片而不是全表重算。常见做法是维护一个反向依赖表赋值时把受影响的公式格加入重算队列按拓扑序依次求值同时用一个正在计算的标记集合来检测循环引用一旦发现 A1 依赖 B1、B1 又依赖 A1就抛出循环引用错误而不是死循环。// 写入公式字符串以 开头即被识别为公式 ASheet.Cells[0, 0].AsString : 10; ASheet.Cells[0, 1].AsString : 20; ASheet.Cells[0, 2].AsString : SUM(A1:B1); // 结果 30 // 改了被引用的格子依赖它的公式格要重算 ASheet.Cells[0, 0].AsString : 100; // 此时 C1 应为 120若没变说明依赖登记或重算被挂起了排查公式类问题时我一般按这个顺序看公式字符串是否以开头少了等号就是纯文本不报错也不算引用的区域写法是否符合引擎支持的语法区域、跨 Sheet 引用、绝对引用的写法各有讲究重算开关是否被批量操作挂起没恢复最后才是函数本身是否被支持。这个顺序能把绝大多数问题挡在前三步不用一头扎进引擎源码。4. 跑起来从编译 dpk 到第一个可编辑表格前面讲的都是静态结构这一节动真格的。目标很明确在你的机器上把包编出来、装进 IDE、拖一个控件到窗体上、敲几个格子、导出一个 xlsx。整个过程分三步走每一步都有明确的验证点哪一步没过就别往下走否则错误会叠加排查成本翻倍。4.1 命令行编译顺序与验证点图形化 IDE 里点Install最省事但要做持续构建或者多版本共存还是得会命令行。Delphi 的包本质上是.dpk.dproj用msbuild或者dcc32都能编。# 第一步编运行期包产物是 bpl dcp # Config 用 Release 避免调试信息拖慢加载Platform 要和目标 exe 一致 msbuild dxSpreadSheet_R.dproj /p:ConfigRelease /p:PlatformWin32 /t:Build # 第二步编设计期包它会 requires 上一步的产物 msbuild dxSpreadSheet_D.dproj /p:ConfigRelease /p:PlatformWin32 /t:Build # 第三步可选用 IDE 打开设计期包点 Install 完成注册 # 注册成功的标志是组件面板里出现表格控件分类如果不用 msbuild直接用编译器也行# -B 强制全量编译避免增量缓存带来的假成功 # -LU 指定依赖单元的搜索路径多个路径用分号分隔 # -LE 指定 bpl 输出目录保证输出到预期的位置 dcc32 -B -LE..\Bin -LU..\Lib;..\Source dxSpreadSheet_R.dpk这三步的验证点分别是第一步编完输出目录里应该有.bpl和对应的.dcp第二步编完.bpl多了一个并且没有DesignIntf相关的警告第三步装完IDE 的组件面板出现新分类且没有弹包加载失败。CBuilder 侧多一步编译时要把生成 C 头文件打开否则你在 BCB 里能看到组件却拖不上窗体。注意编译前把 IDE 里已安装的旧版本包先卸载。同一个包名的新旧两版同时挂着IDE 启动时会加载到不确定的那一个表现为属性面板显示异常或者代码提示错乱。4.2 最小窗体表格 公式栏 冻结窗格包装好之后建一个空 VCL 窗体放上表格控件和一条公式栏绑起来就有一个能用的最小表格了。公式栏通常是配套的独立控件通过一个属性指向表格对象选中单元格时自动回显编辑时写回。procedure TForm1.FormCreate(Sender: TObject); var ASheet: TdxSpreadSheetTableView; begin // 只有一个 Sheet取第一个 ASheet : dxSpreadSheet1.Sheets[0] as TdxSpreadSheetTableView; // 表头 ASheet.Cells[0, 0].AsString : 品名; ASheet.Cells[1, 0].AsString : 数量; ASheet.Cells[2, 0].AsString : 单价; ASheet.Cells[3, 0].AsString : 金额; // 冻结首行参数是冻结的行数与列数 ASheet.FrozenRows : 1; ASheet.FrozenColumns : 0; // 公式栏绑定让它跟着当前选区走 dxSpreadSheetFormulaBar1.SpreadSheet : dxSpreadSheet1; end; procedure TForm1.dxSpreadSheet1CellChanged(Sender: TObject; AColumn, ARow: Integer); begin // 数量或单价变动时重算金额列 if (AColumn 1) or (AColumn 2) then begin (dxSpreadSheet1.Sheets[0] as TdxSpreadSheetTableView) .Cells[3, ARow].AsString : Format((B%d*C%d), [ARow 1, ARow 1]); end; end;这段代码里几个参数的语义值得拆开说。FrozenRows是冻结的行数从顶部往下数设成 1 就是首行固定不滚动FrozenColumns同理从左边往右数。行列索引全是从 0 开始的内部坐标而公式字符串里的B2是 1-based 的 Excel 坐标两者差一所以拼公式时用ARow 1做了换算——这个换算是新手最常见的错位来源。事件处理里做联动计算看似方便但要注意别在里面再触发同一事件否则就是无限递归界面上表现为窗体直接卡死。4.3 导入导出xlsx 读写与打印的接线表格控件不能只活在内存里落地成文件才算闭环。这套源码对 Office 格式的支持走的是独立的外围单元一般通过一个导出/导入的门面对象来完成而不是直接调控件的SaveToFile后者多半是控件自己的原生格式。uses dxSpreadSheet, dxSpreadSheetClasses; procedure TForm1.ExportToXlsx(const AFileName: string); var ASheet: TdxSpreadSheetTableView; begin ASheet : dxSpreadSheet1.Sheets[0] as TdxSpreadSheetTableView; // 导出前把公式重算完避免把未计算状态写进文件 ASheet.Recalculate; // 常见的门面写法构造 - 指定格式 - 执行 - 释放 // 具体类名与参数以源码里的导出单元声明为准 with TdxSpreadSheetOfficeExport.Create do try SpreadSheet : dxSpreadSheet1; FileName : AFileName; ExportToFile; finally Free; end; end;导出这块最容易出的问题是值和格式分离。单元格里存的是浮点数显示成日期是因为设了数字格式导出时如果只写值不写格式Excel 打开就是一串数字。所以导出前要确认样式是否一并写出日期列、百分比列、千分位列分别验证一遍。反过来导入也一样外部文件里的合并单元格、条件格式、数据校验各家实现的支持程度不同导入后最好遍历一遍关键区域做核对而不是看到导入成功就放心。打印则是另一条线分页逻辑在打印单元里缩放比例、页边距、重复标题行这些参数要单独调跟屏幕上的显示设置不是一套。5. 避坑记录源码编译与运行时的五个高频问题这一章全是踩过的坑。每一条都按现象 → 原因 → 解决写遇到类似症状可以对着排查。有些问题看起来像玄学拆开看其实都是编译期或生命周期的小事。第一条运行时弹出类未注册或者控件一拖上去就报错。现象是设计期一切正常组件面板里也有图标但一运行就抛异常提示某个类找不到。原因通常有两个一是运行期包没被 exe 正确引用项目里只链接了设计期包二是 exe 发布时漏了 bpl客户机上没有对应的运行库。解决方式是检查项目的运行期包列表把这些包勾上发布时把Bin目录下的 bpl 和 exe 一起拷走或者干脆改成静态链接用 dcu 直接编进 exe代价是体积变大但部署简单。我现在的做法是开发期用包、发布期用静态链接省掉一堆在我机器上是好的的扯皮。第二条编译报底层库单元找不到或者找到了但方法签名不匹配。现象是cxClasses/dxCore这类单元报错。原因基本锁定在版本错配上本机装了两套底层库搜索路径里排在前面的是旧的那套。解决方式是打开 IDE 的 Library Path把与当前源码匹配的路径调到最前面然后清理一遍 dcu 缓存再全量编译-B。别小看缓存增量编译用旧 dcu 配上新源码报出来的错会指向完全无关的行号纯属误导。第三条灌一万行数据界面像卡死。现象是循环赋值时窗体白屏、进度条不动。原因是每次赋值都触发了重绘和公式重算一万次赋值就是一万次。解决办法是BeginUpdate/EndUpdate包住整个循环并确认重算开关也一并挂起如果数据量再大考虑改用批量接口或者先关掉界面更新再一次性刷新。这里还有个隐性坑EndUpdate漏了没执行整个控件就永久挂起怎么看都像死了所以务必写在finally里。第四条导出的 xlsx 在 Excel 里日期变成一串数字。现象是界面显示2024-05-01导出后变成45413。原因是值本身是日期序列号显示成日期靠的是数字格式而导出链路没把格式带过去。解决方式是给相关列显式设置数字格式再导出导出后自己用 Excel 打开抽查日期列、金额列、百分比列这三类。这条坑我踩过两次第二次是因为换了导出方式忘了重设格式——所以现在导出代码里我把格式设置写在值写入之前不给遗忘留机会。第五条CBuilder 里能拖控件但一编译就报找不到头文件。现象是 BCB 工程#include失败。原因是 Delphi 包编译时没有生成 hpp或者生成到了别的输出目录。解决办法是在编译选项里打开 C 头文件生成确认输出目录在 BCB 的 include 路径里同时注意 BCB 和 Delphi 的包要分别编译不能拿 Delphi 的 bpl 直接给 BCB 用。多版本共存时更麻烦同一台机器上两套 hpp 混在一起报错信息完全指不到病根只能靠目录隔离。6. 二次开发扩展公式函数、换数据层与回归验证改别人的控件源码最怕的是改完当时能用、下次升级全废。所以二次开发的第一原则是挑对扩展点能通过事件和派生类解决的绝不去改主干单元能放到独立单元里的绝不写进dxSpreadSheetClasses.pas。下面三个方向是我实际动过手、也相对安全的。6.1 扩展公式函数表给引擎加一个业务函数业务上经常需要在表格里直接算一些领域公式比如含税价、折扣阶梯。这类需求不用碰解析器只要往函数表里注册一个新函数即可。函数实现通常继承自引擎提供的基类实现函数名和求值两个部分。unit MySpreadSheetFuncs; interface uses dxSpreadSheetClasses, dxSpreadSheetFormula; // 基类与引擎声明所在单元 type // 自定义函数计算含税金额参数为金额与税率 // 具体虚方法名以源码中函数基类的声明为准 TMyTaxFunction class(TdxSpreadSheetCustomFunction) public class function GetName: string; override; // 返回 SUM 之类的函数名 procedure Execute; override; // 取值、计算、写回结果 end; procedure RegisterMyFunctions; implementation class function TMyTaxFunction.GetName: string; begin Result : MYTAX; // 表格里写 MYTAX(A1, 0.13) end; procedure TMyTaxFunction.Execute; var AAmount, ARate: Double; begin // 取参数索引从 0 开始参数个数要做边界检查 AAmount : AsFloat(0); ARate : AsFloat(1); // 写回结果由引擎负责把结果落到目标单元格 SetResult(AAmount * (1 ARate)); end; procedure RegisterMyFunctions; begin // 注册入口一般在引擎的初始化段或全局注册过程里 RegisterSpreadSheetFunction(TMyTaxFunction); end; end.要点有三个。函数名要全大写且不与内置函数冲突冲突了不会报错只会静默用内置的那个排查起来毫无头绪参数取值前必须做边界检查用户写MYTAX(A1)少传一个参数时不能让引擎崩计算结果通过统一的返回值接口写回不要自己去找目标单元格赋值否则会绕过依赖登记引出改了参数不重算的怪问题。注册动作放在单元的initialization段最省事只要这个单元被 uses 到就自动生效。6.2 把数据层挪到外部虚拟数据源的取舍当表格要展示十万行以上的数据时把全部数据塞进控件内存不是个好主意。常见做法是做一层虚拟数据源表格只保留可见区域的数据滚动时按需回源查询。这套源码里通常有对应的回调或事件比如取某格的值这类把实现挂上去即可而不需要重写存储结构。取舍在于复杂度。虚拟模式一旦开启公式引擎就失去了对全量数据的感知能力跨区域求和这类操作得自己算排序、筛选也要自己实现控件只负责显示。我的判断标准是数据量在几千行以内、需要复杂公式联动就用普通模式十万行级的纯展示型报表才值得上虚拟模式。中间地带可以先做分页加载比一步到位改虚拟模式稳得多。6.3 改完怎么验一份最小回归清单源码改动最容易在看起来没问题的地方翻车所以我给自己定了一份最小回归清单每次改完按表走一遍十分钟能省掉后面几小时的返工。验证项操作通过标准编译全量重编运行期 设计期包无警告、输出 bpl 齐全组件注册新开 IDE拖控件到空窗体面板有图标、属性可编辑基础编辑敲值、删值、清空值正确、撤销栈正常公式重算改被引用格看依赖格结果立即更新无循环引用误报批量性能灌一万行计时无明显卡顿界面可交互导出导 xlsx用 Excel 打开日期/金额/百分比格式正确导入导外部含合并格的 xlsx合并、边框、公式保留清单之外还有一个习惯所有自定义单元单独放一个目录不往源码目录里塞。升级源码时直接整个替换原目录自定义部分原样保留冲突面最小。这个习惯是被坑出来的——早期图省事把自定义函数写进了引擎单元升级一次全没了从头补了两天。从那以后我每次动源码前都先问自己一句这段代码能不能放到外面能就放外面。希望这些能帮到你少走几段弯路。本文还有配套的精品资源点击获取
简介DevExpress.ExpressSpreadSheet.v1.38 for Delphi/BCB 源代码包面向需要在 Delphi 与 C Builder 应用中集成类 Excel 电子表格能力的开发者适合希望深入组件内部实现、排查使用问题或开展二次开发的中高级读者。压缩包共 382 个文件约 2.81MB以 pas、cpp、dpk、bpk、dfm、res 等类型为主分别对应 Pascal/C 源码、包工程、窗体与资源文件另含少量示例表格、帮助文档和发布说明。已有 447 人学习。源码覆盖电子表格引擎、数据绑定、公式解析、样式格式、界面交互、图形绘制及 XP 主题适配等模块配合特性演示、股票表、自定义函数等示例工程可帮助读者梳理组件架构与 API 组织方式理解 GDI 渲染和通用库复用思路并为自定义功能、性能优化与项目定制提供参照。1. 一个 Delphi 老系统里的表格需求最后落到了一份源码包上去年帮人看一个跑了七八年的 Delphi 进销存客户提的要求很朴素原来那张只读的报表网格要换成能敲公式、能冻结窗格、能直接把结果另存成 xlsx 的电子表格。用 StringGrid 自己糊一套光公式重算、单元格格式和合并单元格这三件事就能把人耗死更别说导入导出还得跟 Excel 对齐。DevExpress.ExpressSpreadSheet 这套 v1.38 for Delphi/BCB 的源代码解决的正是这个场景——它不是一层表格皮肤而是带公式引擎、单元格样式、多 Sheet 管理、Office 格式读写的完整表格内核并且以 Pascal 源码形式交付可以跟着 IDE 一起编译、断点、改。适合手上有 Delphi 或 CBuilder 工程、需要在客户端里嵌表格、又不希望被二进制包卡住命脉的开发者。下面按包结构、对象模型、编译跑通、踩坑、二次开发这条线拆下去能直接抄的部分我都把代码贴出来。2. 包结构与依赖链v1.38 源码包里的四层组织拿到一个控件源码包我第一件事不是打开 Demo而是先看.dpk里的requires和contains。这两段决定了你能不能编过也决定了后面出问题该往哪个方向查。ExpressSpreadSheet 的源码包组织得比较典型运行期单元、设计期注册单元、IDE 相关的资源、以及一堆 Demo 分开放。先把依赖链理顺后面的编译和调试才有意义。2.1 编译前提编译器版本、运行库与搜索路径这套源码不是自包含的。表格控件要画边框、要处理主题、要用到通用的图形与容器类这些能力来自它的底层库ExpressLibrary 那一层常见单元前缀是cx、dxCore。所以完整编译的前提是本机已经装了与之配套的底层库源码或二进制包并且版本对得上。版本错配是新手最容易翻车的地方——表现往往是编译到一半报cxClasses找不到或者找到了但某个方法签名不匹配。我一般的检查顺序是这样先在 IDE 的 Library Path 里确认底层库的路径排在 SpreadSheet 源码路径之前让编译器先解析依赖然后打开.dpk看requires里列了哪几个包逐个确认它们在 IDE 里已安装最后才去编译。搜索路径的顺序比有没有加更重要两个版本的cxClasses.pas同时出现在路径里编译器不报错但链接出来的东西会非常古怪。组成常见形态作用编译时机运行期包*_R.dpk/.dproj把核心单元打成 bpl供最终 exe 引用最先编设计期包*_D.dpk/.dproj向 IDE 注册组件、属性编辑器、图标第二个编底层依赖库独立安装的源码/二进制包图形、容器、主题、通用对话框提前装好资源与字符串*Strs.pas、res 文件多语言字符串、位图、光标随包编译Demo 与帮助独立目录用法参考、API 说明最后按需编需要提醒一点CBuilder 侧和 Delphi 侧用的是同一批 Pascal 源码但 BCB 需要额外的.hpp头文件生成步骤。如果你只编了 Delphi 包就跑去 BCB 里拖控件会看到找不到头文件这类让人一头雾水的错误。正确做法是先用 Delphi 编译一遍生成 hpp再在 BCB 里引用或者直接在 BCB 的工程选项里把生成头文件的开关打开。2.2 目录与单元分工从控件单元往下捋把Source目录摊开看单元的切分基本遵循控件—模型—渲染—公式—外围的分层。以我手上这份为例核心单元的职责大致如下单元常见命名层主要职责dxSpreadSheet.pas控件层注册TdxSpreadSheet暴露Sheets、Options、事件dxSpreadSheetClasses.pas对象模型Sheet、Cell、样式、选区、撤销栈的类声明dxSpreadSheetCore.pas渲染/交互滚动、绘制、命中测试、就地编辑器调度dxSpreadSheetFormula.pas公式引擎词法、语法、函数表、依赖与重算dxSpreadSheetFunctions.pas公式引擎内置函数的具体实现SUM、VLOOKUP 之类dxSpreadSheetConditionalFormatting.pas扩展特性条件格式规则与求值dxSpreadSheetDataValidation.pas扩展特性输入校验规则dxSpreadSheetPrinting.pas外围分页、打印预览dxSpreadSheetReg.pas设计期组件注册、图标、属性编辑器挂载这个划分不是摆设它直接决定了你改东西该动哪个文件。想加一个内置函数去函数实现单元想改单元格的绘制效果去 Core 或 Classes 的绘制方法想改公式的解析行为才轮到 Formula 单元。见过有人在控件单元里硬改绘制逻辑结果升级一次源码全部作废——血泪经验是动扩展点别动主干。还有一类单元容易被忽略字符串资源单元。控件的提示、错误信息、对话框标题大多走这里。想做界面英文化或者定制提示语改这一个文件比到处找硬编码字符串省事得多也避免了直接改逻辑单元带来的合并冲突。2.3 包分组一份.dpk里藏着的编译顺序包文件里requires写的是我需要谁contains写的是我包含谁。编译器会严格按requires去解析符号所以顺序错了就是一片红。常见的组织方式是把运行期和设计期拆成两个包运行期包含所有核心单元设计期只包含注册单元并requires运行期包。// 运行期包示意只装核心单元不含任何 IDE 相关代码 package dxSpreadSheet_R; requires rtl, // 运行库 vcl, // VCL 基础 cxLibrary; // 底层图形/容器库版本必须与源码匹配 contains dxSpreadSheet in Source\dxSpreadSheet.pas, dxSpreadSheetClasses in Source\dxSpreadSheetClasses.pas, dxSpreadSheetCore in Source\dxSpreadSheetCore.pas, dxSpreadSheetFormula in Source\dxSpreadSheetFormula.pas, dxSpreadSheetUtils in Source\dxSpreadSheetUtils.pas; // 其余核心单元略 end.这里的关键信息有两条。第一运行期包不能引用DesignIntf、ToolsAPI这类只在 IDE 里存在的单元否则编出来的 bpl 在客户机上加载会直接失败。第二requires里的底层库必须在 IDE 中已安装且版本一致否则编译器解析到的是旧符号报错信息会指向源码里一行看起来毫无问题的代码这种黑匣子式的报错最耗时间。我的习惯是每次换源码版本先把底层库和这套包的版本号抄在同一个文本里对齐再开始编译。3. 对象模型拆解一个单元格从赋值到重算走了哪几步控件用起来简单Cells[0,0] : x一行就完事。但真出问题时——比如为什么赋值之后界面没刷新、为什么公式算出来是旧值、为什么一万行数据卡成幻灯片——你得知道这一行背后发生了什么。这一节把对象模型和赋值链路拆开讲看懂了这段后面九成的性能问题都能自己定位。3.1 三层结构控件、View、Cell 各管一摊这套控件的对象模型是三层最外层是TdxSpreadSheet它是个容器管 Sheet 列表、全局选项、事件分发中间层是 Sheet 的 View管某一个工作表的单元格集合、选区、冻结、行列尺寸最内层是 Cell管一个格子的值、格式和样式引用。三层不是继承关系而是持有关系所以你不能指望从控件直接拿到某个单元格必须经由 Sheet。var ASheet: TdxSpreadSheetTableView; ACell: TdxSpreadSheetCell; begin // 控件 - Sheet按索引取越界会抛异常取值前先判 Count if dxSpreadSheet1.Sheets.Count 0 then Exit; ASheet : dxSpreadSheet1.Sheets[0] as TdxSpreadSheetTableView; // Sheet - Cell按 [列, 行] 取行列都从 0 开始 ACell : ASheet.Cells[0, 0]; // A1 ACell.AsString : 物料编码; // 值写入 ACell.AsInteger : 1001; // 数值和字符串走不同分支 // 列宽、行高挂在 View 上不是挂在 Cell 上 ASheet.ColWidths[0] : 120; ASheet.RowHeights[0] : 24; end;这段代码有几个参数要说明。Sheets[0]的类型是 View 的基类实际使用时要么用as强转成TdxSpreadSheetTableView要么直接用基类暴露的通用成员Cells[列, 行]的索引顺序是先列后行和 Excel 的 A1 记法正好相反写反了不会报错只会把数据写到隔壁格子里这种错查起来极其难受。AsString和AsInteger不是简单的类型转换它们会触发不同的内部存储分支字符串格和数值格在 Formula 引擎眼里是两种类型后者才能参与算术运算。提示不同小版本的方法名和属性名会有出入编译报未声明的标识符时按住 Ctrl 点进去看dxSpreadSheetClasses.pas里的真实声明比在搜索引擎里碰运气快得多。3.2 赋值链路一次 setter 到底干了什么表面上一行赋值内部其实是一串动作。以常见的实现路径来说setter 先检查目标格是否落在合并区域内是则改写合并区域的主格然后触发OnCellChanging之类的前置事件给业务代码一个否决的机会接着写入底层存储把该格标记为脏再把自己登记到公式引擎的依赖变更集合里最后Invalidate一个矩形区域等下一次重绘统一绘制。明白了这条链路很多玄学现象就有解释了。为什么一万次赋值慢因为默认每次赋值都走完整链路一万里程碑式地触发一万次失效与重算。为什么公式不刷新因为赋值的格子没被登记进依赖集合引擎不知道要重算谁。为什么界面卡住不动因为重绘被压在同一个消息循环里批量操作没有挂起界面更新。正确的批量写法必须把链路折叠起来dxSpreadSheet1.BeginUpdate; // 挂起重绘与布局计算 try ASheet : dxSpreadSheet1.Sheets[0] as TdxSpreadSheetTableView; for I : 0 to 9999 do begin ASheet.Cells[0, I].AsInteger : I; ASheet.Cells[1, I].AsString : Item- IntToStr(I); end; finally dxSpreadSheet1.EndUpdate; // 这里才真正重绘一次、重算一次 end;BeginUpdate/EndUpdate必须配对而且EndUpdate要放在finally里否则循环里抛个异常整个控件就永久处于挂起状态界面上什么都不会动看起来像死机。这是我最早踩的坑之一后来养成习惯只要进了BeginUpdate后面立刻敲try...finally再往里写业务。至于公式重算多数版本还提供了单独挂起重算的开关大批量灌数据时把重算也一起挂起速度能再上一个台阶。3.3 公式引擎解析、依赖与重算队列公式引擎是这套源码里最有含金量的部分。它的工作流大致是拿到SUM(A1:B10)这样的字符串先做词法切分把SUM、A1:B10、括号、逗号拆成 token再做语法分析组装成表达式树然后查函数表找到SUM的实现执行时把区域展开成单元格引用集合逐个取值计算。更关键的是依赖管理。引擎需要知道哪些格子的值依赖哪些格子才能在某格变化时精确重算相关的那一小片而不是全表重算。常见做法是维护一个反向依赖表赋值时把受影响的公式格加入重算队列按拓扑序依次求值同时用一个正在计算的标记集合来检测循环引用一旦发现 A1 依赖 B1、B1 又依赖 A1就抛出循环引用错误而不是死循环。// 写入公式字符串以 开头即被识别为公式 ASheet.Cells[0, 0].AsString : 10; ASheet.Cells[0, 1].AsString : 20; ASheet.Cells[0, 2].AsString : SUM(A1:B1); // 结果 30 // 改了被引用的格子依赖它的公式格要重算 ASheet.Cells[0, 0].AsString : 100; // 此时 C1 应为 120若没变说明依赖登记或重算被挂起了排查公式类问题时我一般按这个顺序看公式字符串是否以开头少了等号就是纯文本不报错也不算引用的区域写法是否符合引擎支持的语法区域、跨 Sheet 引用、绝对引用的写法各有讲究重算开关是否被批量操作挂起没恢复最后才是函数本身是否被支持。这个顺序能把绝大多数问题挡在前三步不用一头扎进引擎源码。4. 跑起来从编译 dpk 到第一个可编辑表格前面讲的都是静态结构这一节动真格的。目标很明确在你的机器上把包编出来、装进 IDE、拖一个控件到窗体上、敲几个格子、导出一个 xlsx。整个过程分三步走每一步都有明确的验证点哪一步没过就别往下走否则错误会叠加排查成本翻倍。4.1 命令行编译顺序与验证点图形化 IDE 里点Install最省事但要做持续构建或者多版本共存还是得会命令行。Delphi 的包本质上是.dpk.dproj用msbuild或者dcc32都能编。# 第一步编运行期包产物是 bpl dcp # Config 用 Release 避免调试信息拖慢加载Platform 要和目标 exe 一致 msbuild dxSpreadSheet_R.dproj /p:ConfigRelease /p:PlatformWin32 /t:Build # 第二步编设计期包它会 requires 上一步的产物 msbuild dxSpreadSheet_D.dproj /p:ConfigRelease /p:PlatformWin32 /t:Build # 第三步可选用 IDE 打开设计期包点 Install 完成注册 # 注册成功的标志是组件面板里出现表格控件分类如果不用 msbuild直接用编译器也行# -B 强制全量编译避免增量缓存带来的假成功 # -LU 指定依赖单元的搜索路径多个路径用分号分隔 # -LE 指定 bpl 输出目录保证输出到预期的位置 dcc32 -B -LE..\Bin -LU..\Lib;..\Source dxSpreadSheet_R.dpk这三步的验证点分别是第一步编完输出目录里应该有.bpl和对应的.dcp第二步编完.bpl多了一个并且没有DesignIntf相关的警告第三步装完IDE 的组件面板出现新分类且没有弹包加载失败。CBuilder 侧多一步编译时要把生成 C 头文件打开否则你在 BCB 里能看到组件却拖不上窗体。注意编译前把 IDE 里已安装的旧版本包先卸载。同一个包名的新旧两版同时挂着IDE 启动时会加载到不确定的那一个表现为属性面板显示异常或者代码提示错乱。4.2 最小窗体表格 公式栏 冻结窗格包装好之后建一个空 VCL 窗体放上表格控件和一条公式栏绑起来就有一个能用的最小表格了。公式栏通常是配套的独立控件通过一个属性指向表格对象选中单元格时自动回显编辑时写回。procedure TForm1.FormCreate(Sender: TObject); var ASheet: TdxSpreadSheetTableView; begin // 只有一个 Sheet取第一个 ASheet : dxSpreadSheet1.Sheets[0] as TdxSpreadSheetTableView; // 表头 ASheet.Cells[0, 0].AsString : 品名; ASheet.Cells[1, 0].AsString : 数量; ASheet.Cells[2, 0].AsString : 单价; ASheet.Cells[3, 0].AsString : 金额; // 冻结首行参数是冻结的行数与列数 ASheet.FrozenRows : 1; ASheet.FrozenColumns : 0; // 公式栏绑定让它跟着当前选区走 dxSpreadSheetFormulaBar1.SpreadSheet : dxSpreadSheet1; end; procedure TForm1.dxSpreadSheet1CellChanged(Sender: TObject; AColumn, ARow: Integer); begin // 数量或单价变动时重算金额列 if (AColumn 1) or (AColumn 2) then begin (dxSpreadSheet1.Sheets[0] as TdxSpreadSheetTableView) .Cells[3, ARow].AsString : Format((B%d*C%d), [ARow 1, ARow 1]); end; end;这段代码里几个参数的语义值得拆开说。FrozenRows是冻结的行数从顶部往下数设成 1 就是首行固定不滚动FrozenColumns同理从左边往右数。行列索引全是从 0 开始的内部坐标而公式字符串里的B2是 1-based 的 Excel 坐标两者差一所以拼公式时用ARow 1做了换算——这个换算是新手最常见的错位来源。事件处理里做联动计算看似方便但要注意别在里面再触发同一事件否则就是无限递归界面上表现为窗体直接卡死。4.3 导入导出xlsx 读写与打印的接线表格控件不能只活在内存里落地成文件才算闭环。这套源码对 Office 格式的支持走的是独立的外围单元一般通过一个导出/导入的门面对象来完成而不是直接调控件的SaveToFile后者多半是控件自己的原生格式。uses dxSpreadSheet, dxSpreadSheetClasses; procedure TForm1.ExportToXlsx(const AFileName: string); var ASheet: TdxSpreadSheetTableView; begin ASheet : dxSpreadSheet1.Sheets[0] as TdxSpreadSheetTableView; // 导出前把公式重算完避免把未计算状态写进文件 ASheet.Recalculate; // 常见的门面写法构造 - 指定格式 - 执行 - 释放 // 具体类名与参数以源码里的导出单元声明为准 with TdxSpreadSheetOfficeExport.Create do try SpreadSheet : dxSpreadSheet1; FileName : AFileName; ExportToFile; finally Free; end; end;导出这块最容易出的问题是值和格式分离。单元格里存的是浮点数显示成日期是因为设了数字格式导出时如果只写值不写格式Excel 打开就是一串数字。所以导出前要确认样式是否一并写出日期列、百分比列、千分位列分别验证一遍。反过来导入也一样外部文件里的合并单元格、条件格式、数据校验各家实现的支持程度不同导入后最好遍历一遍关键区域做核对而不是看到导入成功就放心。打印则是另一条线分页逻辑在打印单元里缩放比例、页边距、重复标题行这些参数要单独调跟屏幕上的显示设置不是一套。5. 避坑记录源码编译与运行时的五个高频问题这一章全是踩过的坑。每一条都按现象 → 原因 → 解决写遇到类似症状可以对着排查。有些问题看起来像玄学拆开看其实都是编译期或生命周期的小事。第一条运行时弹出类未注册或者控件一拖上去就报错。现象是设计期一切正常组件面板里也有图标但一运行就抛异常提示某个类找不到。原因通常有两个一是运行期包没被 exe 正确引用项目里只链接了设计期包二是 exe 发布时漏了 bpl客户机上没有对应的运行库。解决方式是检查项目的运行期包列表把这些包勾上发布时把Bin目录下的 bpl 和 exe 一起拷走或者干脆改成静态链接用 dcu 直接编进 exe代价是体积变大但部署简单。我现在的做法是开发期用包、发布期用静态链接省掉一堆在我机器上是好的的扯皮。第二条编译报底层库单元找不到或者找到了但方法签名不匹配。现象是cxClasses/dxCore这类单元报错。原因基本锁定在版本错配上本机装了两套底层库搜索路径里排在前面的是旧的那套。解决方式是打开 IDE 的 Library Path把与当前源码匹配的路径调到最前面然后清理一遍 dcu 缓存再全量编译-B。别小看缓存增量编译用旧 dcu 配上新源码报出来的错会指向完全无关的行号纯属误导。第三条灌一万行数据界面像卡死。现象是循环赋值时窗体白屏、进度条不动。原因是每次赋值都触发了重绘和公式重算一万次赋值就是一万次。解决办法是BeginUpdate/EndUpdate包住整个循环并确认重算开关也一并挂起如果数据量再大考虑改用批量接口或者先关掉界面更新再一次性刷新。这里还有个隐性坑EndUpdate漏了没执行整个控件就永久挂起怎么看都像死了所以务必写在finally里。第四条导出的 xlsx 在 Excel 里日期变成一串数字。现象是界面显示2024-05-01导出后变成45413。原因是值本身是日期序列号显示成日期靠的是数字格式而导出链路没把格式带过去。解决方式是给相关列显式设置数字格式再导出导出后自己用 Excel 打开抽查日期列、金额列、百分比列这三类。这条坑我踩过两次第二次是因为换了导出方式忘了重设格式——所以现在导出代码里我把格式设置写在值写入之前不给遗忘留机会。第五条CBuilder 里能拖控件但一编译就报找不到头文件。现象是 BCB 工程#include失败。原因是 Delphi 包编译时没有生成 hpp或者生成到了别的输出目录。解决办法是在编译选项里打开 C 头文件生成确认输出目录在 BCB 的 include 路径里同时注意 BCB 和 Delphi 的包要分别编译不能拿 Delphi 的 bpl 直接给 BCB 用。多版本共存时更麻烦同一台机器上两套 hpp 混在一起报错信息完全指不到病根只能靠目录隔离。6. 二次开发扩展公式函数、换数据层与回归验证改别人的控件源码最怕的是改完当时能用、下次升级全废。所以二次开发的第一原则是挑对扩展点能通过事件和派生类解决的绝不去改主干单元能放到独立单元里的绝不写进dxSpreadSheetClasses.pas。下面三个方向是我实际动过手、也相对安全的。6.1 扩展公式函数表给引擎加一个业务函数业务上经常需要在表格里直接算一些领域公式比如含税价、折扣阶梯。这类需求不用碰解析器只要往函数表里注册一个新函数即可。函数实现通常继承自引擎提供的基类实现函数名和求值两个部分。unit MySpreadSheetFuncs; interface uses dxSpreadSheetClasses, dxSpreadSheetFormula; // 基类与引擎声明所在单元 type // 自定义函数计算含税金额参数为金额与税率 // 具体虚方法名以源码中函数基类的声明为准 TMyTaxFunction class(TdxSpreadSheetCustomFunction) public class function GetName: string; override; // 返回 SUM 之类的函数名 procedure Execute; override; // 取值、计算、写回结果 end; procedure RegisterMyFunctions; implementation class function TMyTaxFunction.GetName: string; begin Result : MYTAX; // 表格里写 MYTAX(A1, 0.13) end; procedure TMyTaxFunction.Execute; var AAmount, ARate: Double; begin // 取参数索引从 0 开始参数个数要做边界检查 AAmount : AsFloat(0); ARate : AsFloat(1); // 写回结果由引擎负责把结果落到目标单元格 SetResult(AAmount * (1 ARate)); end; procedure RegisterMyFunctions; begin // 注册入口一般在引擎的初始化段或全局注册过程里 RegisterSpreadSheetFunction(TMyTaxFunction); end; end.要点有三个。函数名要全大写且不与内置函数冲突冲突了不会报错只会静默用内置的那个排查起来毫无头绪参数取值前必须做边界检查用户写MYTAX(A1)少传一个参数时不能让引擎崩计算结果通过统一的返回值接口写回不要自己去找目标单元格赋值否则会绕过依赖登记引出改了参数不重算的怪问题。注册动作放在单元的initialization段最省事只要这个单元被 uses 到就自动生效。6.2 把数据层挪到外部虚拟数据源的取舍当表格要展示十万行以上的数据时把全部数据塞进控件内存不是个好主意。常见做法是做一层虚拟数据源表格只保留可见区域的数据滚动时按需回源查询。这套源码里通常有对应的回调或事件比如取某格的值这类把实现挂上去即可而不需要重写存储结构。取舍在于复杂度。虚拟模式一旦开启公式引擎就失去了对全量数据的感知能力跨区域求和这类操作得自己算排序、筛选也要自己实现控件只负责显示。我的判断标准是数据量在几千行以内、需要复杂公式联动就用普通模式十万行级的纯展示型报表才值得上虚拟模式。中间地带可以先做分页加载比一步到位改虚拟模式稳得多。6.3 改完怎么验一份最小回归清单源码改动最容易在看起来没问题的地方翻车所以我给自己定了一份最小回归清单每次改完按表走一遍十分钟能省掉后面几小时的返工。验证项操作通过标准编译全量重编运行期 设计期包无警告、输出 bpl 齐全组件注册新开 IDE拖控件到空窗体面板有图标、属性可编辑基础编辑敲值、删值、清空值正确、撤销栈正常公式重算改被引用格看依赖格结果立即更新无循环引用误报批量性能灌一万行计时无明显卡顿界面可交互导出导 xlsx用 Excel 打开日期/金额/百分比格式正确导入导外部含合并格的 xlsx合并、边框、公式保留清单之外还有一个习惯所有自定义单元单独放一个目录不往源码目录里塞。升级源码时直接整个替换原目录自定义部分原样保留冲突面最小。这个习惯是被坑出来的——早期图省事把自定义函数写进了引擎单元升级一次全没了从头补了两天。从那以后我每次动源码前都先问自己一句这段代码能不能放到外面能就放外面。希望这些能帮到你少走几段弯路。本文还有配套的精品资源点击获取
