1. dbgird 导出 Excel 函数到底在解决什么问题如果你写过 Delphi 或者 C Builder 的桌面程序大概率遇到过这个需求界面上摆着一个TDBGrid用户点一下按钮希望把表格里的数据原样导到 Excel 里最好还能自动打开。网上流传最广的那段CopyDbDataToExcel代码就是干这个的——它用 OLE 自动化拉起 Excel把TDBGrid的列标题写进第一行再把数据集逐行写进去最后Visible : True让用户直接看到结果。这段代码本身能跑但它有几个绕不开的坑。第一它强依赖本机装了 Excel没装就CreateOleObject直接抛异常第二Screen.Cursor在异常路径里没恢复出错后鼠标一直转圈第三也是最容易被忽略的——当你想把「导出」这个动作和 AI 工具链打通时比如让 Cline 帮你生成导出逻辑、或者让模型帮你检查字段映射你会发现每个 AI 工具都要单独配一遍 Key管理起来非常碎。这篇就聚焦两件事把dbgird 导出到 Excel的函数封装讲透同时用 TaoToken 把多 AI 工具的 Key 统一成一份配置让导出函数的调用验证和后续的 AI 辅助编码走同一条通道。适合正在维护老 Delphi 项目、又想顺手把 AI 工具链接进来的开发者。2. TaoToken 统一 Key 的前置准备TaoToken 在这里扮演的角色是「一个 Key 管多个模型通道」。你不需要为 Cline、为模型对话、为 coding plan 分别去申请不同的凭证而是拿一个统一 Key通过https://taotoken.net/api这个 API 入口去调用。对导出函数这种场景来说好处是你让 AI 帮你写CopyDbDataToExcel的异常处理、帮你把Field.AsString换成带格式化的输出这些请求都走同一个 Key不用来回切换。先做三件事。第一去官网https://taotoken.net/?utm_sourcetaotoken_aicg_blog_endutm_mediumcsdnutm_campaignrewriteutm_content注册并拿到 Key。第二打开 API Keys 管理页https://taotoken.net/api-keys?utm_sourcetaotoken_aicg_blog_endutm_contentapi_keysutm_campaignrewrite生成一个 Key 并复制保存。第三确认你要接入的工具比如 Cline它的配置里需要填 Base URL 和 API Key 两个字段。注意Key 只显示一次复制后放到本地配置文件里不要硬编码进.pas源码更不要提交到版本库。如果你只是想先验证模型能不能通可以直接用模型对话页https://taotoken.net/models?utm_sourcetaotoken_aicg_blog_endutm_contentmodelsutm_campaignrewrite发一条消息试试确认 Key 有效再往下配。3. 可复制的 config.toml 骨架与 Cline 接入配置TaoToken 的配置推荐用config.toml统一管理。下面这份骨架你可以直接抄把api_key换成你自己的# config.toml # TaoToken 统一 Key 配置骨架 [default] base_url https://taotoken.net/api api_key sk-你的TaoToken密钥 timeout 60 [models] # 用于代码生成与补全 coding claude-sonnet # 用于快速问答与校验 chat gpt-4o-mini [cline] provider openai-compatible base_url https://taotoken.net/api api_key sk-你的TaoToken密钥 model claude-sonnetCline 接入时在它的设置面板里选 OpenAI CompatibleBase URL 填https://taotoken.net/apiAPI Key 填上面那个Model 填claude-sonnet。保存后 Cline 就能通过 TaoToken 通道调用模型了。接下来是导出函数本身的封装。原始代码把逻辑全塞在一个过程里我把它拆成「取数据」和「写 Excel」两段并补上异常恢复// 封装后的导出函数带异常恢复 procedure ExportDBGridToExcel(AGrid: TDBGrid; const AFileName: string ); var XLApp, Sheet: Variant; Row, Col: Integer; DS: TDataSet; begin if (AGrid nil) or (AGrid.DataSource nil) then Exit; DS : AGrid.DataSource.DataSet; if not DS.Active then Exit; Screen.Cursor : crHourGlass; try try XLApp : CreateOleObject(Excel.Application); except ShowMessage(未检测到 Excel请先安装); Exit; end; XLApp.DisplayAlerts : False; XLApp.WorkBooks.Add; Sheet : XLApp.WorkBooks[1].WorkSheets[1]; Sheet.Name : AGrid.Name; // 写列标题 for Col : 0 to AGrid.Columns.Count - 1 do Sheet.Cells[1, Col 1] : AGrid.Columns.Items[Col].Title.Caption; // 写数据行 DS.First; Row : 1; while not DS.Eof do begin for Col : 0 to AGrid.Columns.Count - 1 do Sheet.Cells[Row 1, Col 1] : AGrid.Columns.Items[Col].Field.AsString; Inc(Row); DS.Next; end; if AFileName then XLApp.ActiveWorkbook.SaveAs(AFileName); XLApp.Visible : True; finally Screen.Cursor : crDefault; end; end;调用处也简化一下把try...except收进函数内部后外面只需要判断用户是否确认if Application.MessageBox(确定要导出, 提示, MB_OKCANCEL MB_ICONQUESTION) IDOK then begin ExportDBGridToExcel(DBGrid1, D:\export\data.xlsx); Application.MessageBox(导出成功, 提示, MB_OK MB_ICONINFORMATION); end;4. 验证请求与导出结果校验配置写完得验证两件事AI 通道通不通导出结果对不对。先验证 TaoToken 通道。用 curl 发一条最小请求curl -X POST https://taotoken.net/api/v1/chat/completions \ -H Authorization: Bearer sk-你的TaoToken密钥 \ -H Content-Type: application/json \ -d { model: claude-sonnet, messages: [{role: user, content: 回复 ok}] }返回里出现content: ok就说明 Key 和通道都正常。这一步过了Cline 里同样的配置基本不会出问题。再验证导出函数。运行程序点导出按钮观察三件事Excel 是否自动打开、第一行是不是TDBGrid的列标题、数据行数是否和数据集记录数一致。我实测下来最容易出问题的是列标题——如果TDBGrid的Columns没在设计器里显式添加Columns.Count可能是 0导出的表就是空的。解决办法是在TDBGrid属性里手动加列或者改用DS.Fields遍历// 用 Fields 替代 Columns避免列未定义 for Col : 0 to DS.FieldCount - 1 do Sheet.Cells[1, Col 1] : DS.Fields[Col].DisplayLabel;校验数据行时可以在导出后加一句日志把Row - 1和DS.RecordCount对比OutputDebugString(PChar(Format(导出 %d 行数据集 %d 行, [Row - 1, DS.RecordCount])));两者一致说明没有漏行。5. 本篇常见错误排查导出过程中报EOleSysError提示「类未注册」。这是本机没装 Excel 或者 OLE 注册表损坏。先确认装了 Office再运行regsvr32重新注册或者干脆改用第三方库如TMS FlexCel避开 OLE 依赖。导出后 Excel 进程残留任务管理器里一堆EXCEL.EXE。原因是异常路径里没执行XLApp.Quit。把Quit和VarClear放进finallyfinally if not VarIsEmpty(XLApp) then begin XLApp.DisplayAlerts : False; XLApp.Quit; VarClear(XLApp); end; Screen.Cursor : crDefault; end;Cline 报 401 或invalid api key。检查config.toml里的 Key 有没有多余空格Base URL 是不是写成了https://taotoken.net/api/末尾斜杠有时会导致路径拼接错误。如果还不行去 API Keys 页https://taotoken.net/api-keys?utm_sourcetaotoken_aicg_blog_endutm_contentapi_keysutm_campaignrewrite重新生成一个。导出中文乱码。Field.AsString在部分数据集上返回的是 ANSI 编码写进 Excel 会乱。改用Field.DisplayText或者显式转 UTF-8Sheet.Cells[Row 1, Col 1] : UTF8Encode(AGrid.Columns.Items[Col].Field.DisplayText);数据行数对不上。检查DS.First之前数据集是否已经Eof如果游标在末尾while not DS.Eof一次都不执行。在循环前强制DS.First就能解决。6. 把导出函数和 AI 工具链接起来导出函数封装好之后后续的维护工作可以交给 AI 辅助。比如你想给导出加一个「按当前筛选条件导出」的功能或者把AsString换成带千分位的数字格式直接在 Cline 里描述需求它会通过 TaoToken 通道调用模型生成代码片段你复制进.pas文件即可。长期做编码和 Agent 任务的建议用 Coding Planhttps://taotoken.net/coding-plan?utm_sourcetaotoken_aicg_blog_endutm_contentcoding_planutm_campaignrewrite它针对连续编码场景做了通道优化比单次对话更稳。接入文档在https://taotoken.net/doc?utm_sourcetaotoken_aicg_blog_endutm_contentdocutm_campaignrewrite里面有各语言的调用示例Delphi 里用TNetHTTPClient发 POST 就能对接。如果你用的是 Claude Code 这类命令行工具Anthropic 兼容入口在https://taotoken.net/claude-code-anthropic?utm_sourcetaotoken_aicg_blog_endutm_contentclaude_codeutm_campaignrewrite配置方式和 Cline 类似填 Base URL 和 Key 就行。最后留一个我踩过的坑TDBGrid的Columns和数据集Fields顺序不一定一致如果用户拖拽过列顺序导出结果会错位。稳妥做法是遍历Columns时用Columns.Items[Col].FieldName去DS.FieldByName取值而不是直接按索引取Field。这样无论列怎么排导出的数据都对得上。