XLSReadWriteII 6.02：Delphi 12环境下读写Excel的完整指南

简介面向 Delphi 开发者的 XLSReadWriteII 6.02.01 控件安装包版本日期为 2024 年 11 月 29 日支持 Delphi 7 至 Delphi 12.2 多代 IDE适合需要在 Object Pascal 项目中快速集成 Excel 读写能力的个人或企业开发者。资源内包含 505 个文件以 pas 源码、html 文档、dfm 窗体、dpr 工程文件以及 dpk 包描述文件等为主体另有少量示例配置与媒体素材整体体积 5.63MB便于下载后直接查阅组件源码、设计期注册和示例工程结构。已有 564 人学习下载。该版本重点覆盖最新 xlsx 格式支持与性能改进并随包提供多种示例工程如自动筛选、发票样例、透视表、网格控件及监控文件等场景可帮助开发者快速理解组件的属性、事件调用方式与集成流程。无论是新建电子表格还是读取修改现有 Excel 文件都可基于这些示例对照实践缩短二次开发调试时间提升办公自动化功能的交付效率。1. XLSReadWriteII 6.02.01Delphi 12 环境里读写 Excel 的更稳路线给 Delphi 12 项目选 Excel 读写控件时XLSReadWriteII 6.02.01 (29 Nov 2024) 是一个绕不开的名字。它的核心能力是让程序不依赖本机安装 Microsoft Office直接解析和写出 xls、xlsx 文件标题里的 D7 - D12.2 意味着同一套源码从 Delphi 7 到 Delphi 12.2 都能编译这对正在维护老项目、又要往新 IDE 迁移的团队价值非常直接。老项目里用惯的那套 Sheet、Cell 操作方式不用重写换到 Delphi 12 后继续编译这就省掉了最痛苦的一块迁移成本。这篇文章按一个从业者的实际习惯展开先讲怎么把这个 7z 包装进 IDE 并验证成功再讲对象模型和最小 Demo接着给出一套能直接抄的报表读写代码最后集中说我在项目里碰到的编译、编码、性能问题。读完你可以照着自己装一份也能拿参数去对照手上的版本差异。适合的人群很明确手上捏着 D7 老代码又准备升级 Delphi 12 的维护者需要在服务器上批量生成报表且不想装 Office 环境的桌面开发团队以及被 OLE 自动化折腾到后台进程挂死的开发人员。这个控件解决问题的方向正好是这几类需求的重合点。2. 安装 XLSReadWriteII 6.02.01从 7z 包到 IDE 组件栏2.1 用 7-Zip 解压到固定目录目录结构先想清楚标题里的文件是一个标准的 7z 压缩包安装第一步不是打开 IDE而是先把包释放到一个固定的、纯英文的目录。很多人在这一步随手丢到“下载”文件夹或者中文路径里后面编译时 LIB 路径一旦带上空格或中文偶尔会出现莫名其妙的“找不到 dc u”问题这就是典型的组件安装玄学完全可以靠目录规划避免。我一般会建一个专门放第三方组件的目录再把版本号带进子目录名方便以后同时维护多个版本7z x XLSReadWriteII 6.02.01 (29 Nov 2024) for D7 - D12.2.7z -oD:\Libs\XLSRWII这里-o参数指定解压目标目录路径不要带空格。解压完成后至少应该能看到按 Delphi 版本划分的源码目录、几个.dpk或.dproj包工程文件以及随包提供的 Demo 和帮助文档。目录规划对后续维护很重要我习惯把它整理成下面的结构目录作用D:\Libs\XLSRWII\Source公共源码文件所有 IDE 共用D:\Libs\XLSRWII\Delphi7D7 编译产生的 dcu、bplD:\Libs\XLSRWII\Delphi12Delphi 12 编译产生的 dcu、bpl不同 IDE 版本的编译产物分开存放是为了避免一个 IDE 升级后把另一个版本的 dcu 覆盖掉。实际安装包内部的组织方式可能略有不同但只要来源码和编译输出两头分开后面怎么折腾都不会乱。2.2 编译运行时包并安装设计时包Delphi 12 的安装顺序Delphi 的组件包分成运行时包Runtime和设计时包DesignTime两类。运行时包负责提供可执行文件链接的代码设计时包负责在 IDE 组件栏里显示控件、提供属性编辑器。安装时只装设计时包或只装运行时包都会留下隐患最常见的表现就是编译通过但运行报错或者控件根本不出现。先找到包工程文件比如.dproj或.dpk。用 Delphi 12 打开后在工程管理器里能看到与版本对应的包项目。我习惯先 Build 运行时包再单独安装设计时包cd /d D:\Libs\XLSRWII dir /s *.dproj *.dpkdir /s会递归列出所有包工程文件你可以根据文件名里的字样分辨出哪个是 Runtime、哪个是 Design。用 Delphi 12 打开对应工程后按下面的顺序操作编译运行时包在项目管理器里右键工程选择 Build确认没有报错。安装设计时包打开“组件 安装组件Install Packages”点击 Add选择设计时包编译出来的.bpl文件。检查 IDE 底层库路径“工具 选项 语言 Delphi 库 Library path”把 Source 目录加进去。不加的话新建工程引用控件时会报找不到.dcu或.pas。第 3 步非常容易被忽略。很多人在安装时只装包、不配路径结果新建工程一编译就报找不到单元。因为设计时包运行成功后IDE 只是在组件栏多了个按钮而你的工程编译时还需要去源码目录找实现文件所以路径必须提前配好。安装包内部若是带有安装说明或 Demo优先看它列出的依赖顺序。有的版本还依赖其他基础库例如某些图形或压缩单元需要先把依赖库编译好再编译本组件否则会直接报“找不到 xxx.dcu”。这个问题在第一次装任何第三方 Delphi 组件时都可能遇到不是这套控件独有的坑。2.3 安装结果验证三个检查点避免“伪成功”安装完成后不要急着写业务代码先做三个验证。第一步看组件栏正常情况下会出现一个与 XLSReadWriteII 对应的页面页面里有 TXLSReadWriteII 组件第二步新建一个窗口把组件拖到窗体上检查对象查看器里是否出现 Sheets、FileName 这类关键属性第三步把组件删掉或保留编译整个工程确认不报找不到 bpl 或 dcu。检查点操作预期结果组件栏新建窗体切到组件栏出现 TXLSReadWriteII 可拖放组件对象属性拖到窗体选中组件属性列表里有 Sheets 属性独立编译生成一个全新工程并编译编译通过无缺失 bpl 错误这三个检查点分别对应设计时、运行时和编译环境三块问题。如果组件出现但编译失败多半是 Library path 没配好如果编译通过但运行报缺 bpl是运行时包没注册如果组件栏都没出现是设计时包没装成功。对照检查点排查一般几分钟就能定位。3. 先懂对象模型再用TXLSReadWriteII 的三层结构3.1 Workbook、Sheet、Cell 在组件里的对应关系XLSReadWriteII 的对象模型和 Excel 本身的逻辑一致一个文件是一个工作簿工作簿里包含多个工作表工作表里是密密麻麻的单元格。组件里最外层的对象是 TXLSReadWriteII它对应整个 Excel 文件它有一个 Sheets 属性是一个工作表集合而每个工作表对象里最重要的又是 Cells 属性用于定位某个具体的单元格。对应关系可以用一张表看明白Excel 概念组件对象说明工作簿文件TXLSReadWriteII主组件负责 LoadFromFile / SaveToFile工作表Sheets[i]索引从 0 开始对应第 1 张表单元格Sheets[i].Cells[Col, Row]第一个参数是列号第二个是行号都从 0 开始单元格的取值和赋值是这套 API 最常碰到的部分。组件里 Cells[Col, Row] 本身是一个单元格对象它提供了多个取值属性方便你按数据类型读写。常见的有 AsString、AsFloat、AsInteger、AsDateTime 等分别对应字符串、浮点数、整数和日期时间。实际使用时要特别注意 Cells 的两个参数顺序——第一个是列第二个是行这和很多人的直觉相反是初学者最容易写反的地方。属性适用类型使用例子AsString文本、统一取值Cells[0, 0].AsString : 姓名AsInteger整数Cells[1, 0].AsInteger : 100AsFloat浮点数Cells[2, 0].AsFloat : 99.5AsDateTime日期时间Cells[3, 0].AsDateTime : Now还有一点需要熟悉工作表对象通常有 RowCount、ColCount 之类描述当前有效范围的属性。这个“有效范围”不是固定的 65536 行或 1048576 行而是根据内容自动计算出的边界。明白这一点后你写循环遍历时才有据可依不然很容易陷入空表遍历的尴尬局面。3.2 创建一个最小 Demo三步写出 xls 文件理解了三级结构后写一个能跑的最小 Demo 只要几步。我这里用一个完全在代码里创建对象的方式不依赖窗体上放置的组件这样更容易看清整个生命周期procedure TForm1.Button1Click(Sender: TObject); var XL: TXLSReadWriteII; begin XL : TXLSReadWriteII.Create(nil); try XL.Sheets.Add; // 增加一个空白工作表 XL.Sheets[0].Name : 演示; XL.Sheets[0].Cells[0, 0].AsString : 标题; XL.Sheets[0].Cells[1, 0].AsInteger : 1024; XL.Sheets[0].Cells[2, 0].AsDateTime : Now; XL.SaveToFile(demo.xls); finally XL.Free; end; end;这段代码做了三件事创建组件对象、往工作表的单元格里填数据、保存文件。Sheets.Add是往工作簿里追加一个空白工作表新工作表的索引是 0因为这是第一张表。Cells[0, 0]是第 1 列第 1 行也就是 A1 单元格Cells[1, 0]则是 B1。最后一个SaveToFile(demo.xls)会按文件扩展名推测写出格式这里生成的是老版 .xls 文件。Create(nil)里的 nil 表示组件没有拥有者所以后面必须手动Free。如果是在窗体上放置了 TXLSReadWriteII 组件就不需要自己创建和释放窗体销毁时会自动处理。两种方式我都在项目里用过动态创建适合写工具类模块放置组件适合在窗体上直观查看属性配置。这段代码如果直接粘贴到一个按钮事件里运行会在当前工程目录下生成一个 demo.xls 文件。用 Excel 打开它能看到单元格里分别有“标题”、1024 和当前日期。到这里一个最基础的读写闭环已经成立后续所有复杂功能都是在这个基础上扩展。3.3 决定用 xls 还是 xlsx文件格式的差异会影响兼容性很多开发者在选型时忽略了一个问题xls 和 xlsx 是两种完全不同的文件结构。xls 是老的 BIFF 二进制格式Excel 97-2003 用它xlsx 是 Office Open XML 格式本质是一个 zip 压缩包里面是多个 XML 文件。XLSReadWriteII 对两种格式都支持但它们在体积、兼容性和处理速度上是有差别的。维度xlsxlsx内部结构BIFF 二进制块ZIP 内的 XML 文件适用 Excel 版本97-20032007 及以后文件体积相对较大通常更小老系统兼容性老 ERP 系统常用新办公环境默认我一般会这样定规则如果文件要发给外部单位且对方还在用 Excel 2003就导出 xls如果是系统内部自己解析或者文件要长期存档直接用 xlsx。需要注意的是有些控件在保存时默认按 xls 方式处理即使你用了 .xlsx 扩展名内部结构可能仍然是 BIFFExcel 打开时就会提示格式与扩展名不匹配。这个细节后面避坑章节会展开讲。xlsx 的“文件即压缩包”特性还有一个实用价值程序处理完以后你可以用 7-Zip 打开 xlsx 文件直接查看内部的 sheet1.xml 内容用文本方式快速确认数据是否写入正确。这种验证手段完全不依赖 Excel在排查问题时非常好用。4. 落地报表模块数据写入、读取与样式4.1 批量写入业务数据表头与循环行实际项目里最常见的场景是把内存中的数据批量导出成报表。我先说一个原则先建表头再写数据行。表头通常固定占一行数据行从第 1 行开始循环写入这里的行号仍然从 0 开始计数所以表头在 Row0第一条数据在 Row1。procedure TForm1.ExportReport(AFileName: string); var I: Integer; begin XLSReadWriteII1.Sheets.Count : 1; XLSReadWriteII1.Sheets[0].Cells[0, 0].AsString : 序号; XLSReadWriteII1.Sheets[0].Cells[1, 0].AsString : 名称; XLSReadWriteII1.Sheets[0].Cells[2, 0].AsString : 金额; for I : 0 to 99 do begin XLSReadWriteII1.Sheets[0].Cells[0, I 1].AsInteger : I 1; XLSReadWriteII1.Sheets[0].Cells[1, I 1].AsString : 项目 IntToStr(I); XLSReadWriteII1.Sheets[0].Cells[2, I 1].AsFloat : I * 1.5; end; XLSReadWriteII1.SaveToFile(AFileName); end;这段代码先写入三列表头再用循环写入 100 行数据。因为表头占用了 Row0所以循环变量 I 从 0 开始数据行号就是I 1。列号保持和表头一致第 0 列是序号第 1 列是名称第 2 列是金额。写入完成后一次 SaveToFile 结束整个过程。这里有一个参数设置上的建议如果行数达到几千或者几万不要在循环内部做任何与单元格内容无关的 UI 刷新操作。组件写入单元格本身是内存操作速度不会太差但如果你在循环里更新进度条、刷新 ListView性能会被界面拖垮。正确的做法是循环只负责写数据结束后再统一刷新进度条。关于XLSReadWriteII1.Sheets.Count : 1这一句有的版本允许通过设置 Count 来指定工作表数量也有的版本用Sheets.Add更顺手。我习惯在写入前先把工作表数量固定为 1确保不会因为默认状态不确定而写到错误的表里。如果你发现这句在当前版本不可用改为Sheets.Add或先清空再添加同样能达到目的。4.2 读取数据回界面先确定有效行列范围读取操作比写入更容易出错关键问题在于“读取哪些行和列”。不少人在读取时直接写死从第 0 行到第 100 行一旦文件内容多出几行或者少了几行数据就会错位。正确做法是先获取当前工作表有效范围的边界再在这个边界内循环。procedure TForm1.LoadData(AFileName: string); var Row, Col, LastRow, LastCol: Integer; begin XLSReadWriteII1.LoadFromFile(AFileName); LastRow : XLSReadWriteII1.Sheets[0].RowCount - 1; LastCol : XLSReadWriteII1.Sheets[0].ColCount - 1; for Row : 0 to LastRow do begin for Col : 0 to LastCol do begin StringGrid1.Cells[Col, Row] : XLSReadWriteII1.Sheets[0].Cells[Col, Row].AsString; end; end; end;先LoadFromFile把文件读入内存再用RowCount和ColCount算出最后一行和最后一列的索引。由于行列索引从 0 开始所以边界值要减 1。空的文件或者只有表头的文件RowCount 可能只有 1此时LastRow是 0循环只会处理表头那一行不会越界。这里要提醒一个容易踩到的细节RowCount 和 ColCount 这两个属性的具体名称在不同版本里可能存在差异有的版本叫 RowCount有的可能要通过 Cells 对象获取。我在项目里吃过这个亏第一次安装完直接照老代码写编译不过冷静下来用 IDE 的代码提示功能翻了一下属性列表找到对应的边界属性才解决。遇到类似问题优先相信当前安装包实际提供的属性别硬背旧版 API。读取单元格时还有一个类型转换的顺滑操作无论单元格里存的是数字、日期还是文本统一用AsString读取组件会自动转成字符串。这样往 StringGrid、ListView 或 Memo 里填内容都很方便。如果你需要保留数字精度再单独用 AsFloat 或 AsDateTime 获取原始类型。4.3 设置字体、列宽和合并单元格让报表像样代码生成报表后如果只有数据没有样式客户多半不会买账。XLSReadWriteII 允许对单元格对象设置字体、背景色、边框也可以设置整列宽度和整行高度。我一般把样式设置分成三块表头单独设置数据区尽量少设置整表的列宽在数据写完后统一设置。// 表头样式 XLSReadWriteII1.Sheets[0].Cells[0, 0].Font.Name : 微软雅黑; XLSReadWriteII1.Sheets[0].Cells[0, 0].Font.Size : 10; XLSReadWriteII1.Sheets[0].Cells[0, 0].Font.Bold : True; XLSReadWriteII1.Sheets[0].Cells[0, 0].BackgroundColor : $00D6E4F0; // 列宽 XLSReadWriteII1.Sheets[0].ColumnWidths[0] : 10; XLSReadWriteII1.Sheets[0].ColumnWidths[1] : 20; XLSReadWriteII1.Sheets[0].ColumnWidths[2] : 15; // 合并单元格第 0 行从第 0 列到第 2 列 XLSReadWriteII1.Sheets[0].MergeCells(0, 0, 2, 0);代码里给 A1 单元格设置了字体、字号、加粗和背景色。列宽通过ColumnWidths[列号]设置行高对应RowHeights[行号]。合并单元格方法我在这里写的是MergeCells(Col1, Row1, Col2, Row2)但它的方法名在不同版本里可能不同有的版本是 Merge有的版本叫 MergeCells参数顺序也都以你安装包内自带的帮助文件或 Demo 为准。第一次用的时候建议先在 IDE 里按 F1 查一下这个方法签名确认参数含义再写进正式代码。样式参数需要记住的最重要一条原则能批量设置就不要逐格设置。比如你要给整列设置宽度直接设置ColumnWidths一次完成不要循环 1000 次给每个单元格设置宽度。风格统一的报表数据区单元格的字体、颜色尽量继承默认样式只对表头和合计行做特殊处理性能会好很多代码也简洁很多。5. XLSReadWriteII 避坑五个踩过的现场和对策5.1 现象编译通过运行时报找不到运行时 BPL现象安装完成后新建工程编译一切正常但双击生成的 exe 时弹窗提示“找不到 xxx.bpl”或者“无法定位程序输入点”。原因只安装了设计时包没有安装运行时包。Delphi 在编译时把运行时包的引用写进了 exe但运行时如果系统路径和 exe 目录里都没有对应 bpl就会启动失败。另一个常见原因是运行时包和设计时包版本不一致比如装了 6.02.01 的设计时包但旧版本的运行时 bpl 还残留在系统里。解决回到“组件 安装组件”对话框确认列表里同时存在设计时和运行时两个条目缺少哪个就补装哪个。如果不想发布时带一堆 bpl可以在“项目 选项 运行时包”里把“使用运行时包”的勾去掉改为静态链接这样生成的 exe 不依赖外部 bpl但体积会变大。我在公司内部工具里一般选择静态链接省去部署时漏文件的麻烦。5.2 现象中文写入 xlsx 后变成乱码现象写入的中文在 Excel 里显示成“?”或者一堆乱码部分版本里 xls 正常但 xlsx 不正常。原因xlsx 内部是 XML 文件对字符编码有严格要求组件需要把字符串正确转成 UTF-8 再写进 XML。如果你的源码文件本身不是 UTF-8 编码或编译时代码页设置不对字符串进入组件时就已经是错误数据后面写出来自然乱。还有一种情况是数据来自老版本数据库字段内容是 GBK 编码组件按 Unicode 处理时就出了偏差。解决把工程源文件统一设置为 UTF-8 编码在写入 xlsx 前用组件的字符串转换方法做一次矫正从数据库读取的数据统一转成 Unicode 字符串再写入。排查时先做一个最小测试在代码里直接写死一个中文常量生成 xlsx用文本方式打开内部 XML 看是否正确。如果常量没问题但数据库字段有问题问题就出在数据库连接的字符集设置上和控件无关。5.3 现象组件栏出现重复的 TXLSReadWriteII现象安装过多次不同版本后组件栏里出现两个甚至多个 TXLSReadWriteII拖到窗体会提示类型冲突或命名空间歧义。原因旧版本的设计时包没有卸载新版本又安装了一次Delphi 同时加载了两套包而两套包里有相同的类名。有时候是因为同一个源码目录被加进了多条 Library pathIDE 编译时找到两份 dcu。解决打开“组件 安装组件”把旧的 XLSReadWriteII 条目一个个移除只保留最新版本。再到“工具 选项 库”里清理重复的源码目录。如果组件栏还是乱关掉 IDE 后到系统盘的 bpl 目录检查是否有同名残留文件手动删除多余版本。这个操作不会影响工程源码只是清理环境放心处理。5.4 现象几万行数据导出时界面卡死现象导出 100 行数据时毫无感觉但导出几万行时窗口失去响应进度条像冻住一样任务管理器显示 CPU 占用很高。原因数据写入工作本身是在内存里完成的但如果你在主线程里执行并且循环中又触发了界面刷新比如设置 Caption、更新进度条、或者 StringGrid 的 Repaint高频界面操作会把性能拖垮。更隐蔽的原因是每访问一个 Cells 对象时组件内部可能进行了格式解析或编码转换这个成本在单次操作时可以忽略但循环十万次就会累积成明显卡顿。解决把导出过程放到后台线程里执行线程里只操作组件对象全部完成后再通过 Synchronize 或 Queue 回到主线程刷新界面。如果不想引入线程至少要在循环里摘掉所有界面刷新代码只保留数据写入。进度条按百分比更新比如每写完 500 行更新一次不要每行都更新。线程方案我用了很多次几十万行数据导出时界面依然流畅这是最彻底的做法。5.5 现象Excel 打开文件时提示格式损坏现象自己写的 xls 或 xlsx 文件程序保存时没有任何报错但用 Excel 打开时提示“文件已损坏”或“是否尝试修复”。原因常见有三类。第一种是扩展名与实际格式不符比如内容按 xls 格式写出文件名却是 .xlsx第二种是文件被占用Excel 还开着同一个文件写入时没有真正落盘第三种是写入内容里包含了 Excel 无法处理的非法字符比如字符串里带控制字符或特殊符号。解决保存前明确指定文件格式而不是依赖扩展名推测保证扩展名和格式一致保存前检查目标文件是否被 Excel 锁定必要时先提示用户关闭对写入的字符串做一次清洗去除控制字符。定位问题时用 7-Zip 打开 xlsx 文件看看内部 XML 结构是否完整如果 XML 被截断或编码错误很可能是文件流没有正确关闭。这个排查技巧非常实用能直接把问题从“控件问题”收敛到“自己的代码问题”。6. 进阶用内存流导出并对文件做回读验证6.1 SaveToStream不落地临时文件也可以生成 Excel在服务端程序中往往不需要真的生成一个文件保存到磁盘而是直接把 Excel 数据放在内存流里用于上传到接口或作为附件发送。XLSReadWriteII 提供了保存到流的能力用法和保存文件类似var MS: TMemoryStream; begin MS : TMemoryStream.Create; try XLSReadWriteII1.SaveToStream(MS); MS.Position : 0; MS.SaveToFile(out.xlsx); finally MS.Free; end; end;SaveToStream把整个工作簿内容写入内存流之后流的位置指针停留在末尾。如果想继续读取流内容必须先把Position重置为 0。这个细节是我踩过的坑——第一次从流里读数据时发现读出来是空的就是忘了重置指针。内存流方案的好处是不产生临时文件也方便对结果做 SHA 校验或者直接作为 HTTP 响应体返回。6.2 回读校验把导出的数据再读回来对比我个人的习惯是任何批量导出功能完工前必须做一次“回读验证”。具体做法是把刚写入的 Excel 文件重新用 LoadFromFile 读进来把关键单元格的值和内存里的原始数据对比。这一步能同时检查编码问题、行列错位问题、格式选择问题。XLSReadWriteII1.LoadFromFile(out.xlsx); if XLSReadWriteII1.Sheets[0].Cells[2, 1].AsFloat 100.5 then raise Exception.Create(导出校验失败金额数据不一致);上面这段代码只验证了一个关键单元格。在正式项目中我会从内存数组中取几行典型数据和读回数据逐一比对。如果所有关键值一致再交由业务方试用如果不一致立即检查行号偏移或数据类型转换问题。回读验证看起来多花了点时间却能挡住大量低级失误。在项目里形成这个习惯后导出模块的返工率明显降低了。现在我固定会在新写的报表代码中附带一个校验函数并把这些校验逻辑放进代码评审的检查清单里。整个过程并不复杂但对稳定性的提升非常明显——希望帮到你。本文还有配套的精品资源点击获取