[QMacros]示例：使用 QMacros 玩转 HTML 模板_html/css_WEB-ITnose
我们在实际开发中，由于各种各样的原因，可能会结合浏览器来实现一些 Delphi 本身不好实现的效果。而如果网页是靠拼字符串来完成，显然其效率不是太理想。而如果结合 QMacros ，你会发现一切都变的那么简单。QMacros 的示例中包含了一个新的 HTML 模板示例代码，我们来解读其中与 QMacros 相关的部分，来看看如何玩转 HTML 模板。
首先，我们在窗体上包含了一个数据集，数据集中有两个字段：Id 和 Name，由于在设计期添加了这两个字段，所以在定义中我们可以看到它们分别是 adsDataId 和 adsDataName。为了演示方便，我们在窗体的构造函数中生成了10条测试数据。
接下来，我们来看剩下的源码：
procedure TForm1.Button1Click(Sender: TObject);const STableTemplate: QStringW = '<html><head><title><%Title%></title></head>' + // '<body>这是一个表格<table border="1" cellspacing="0" cellpadding="0" bordercolor="#000000" style="BORDER-COLLAPSE: collapse">'+ // '<th><tr><td>编号</td><td>姓名</td></tr></th>' + // '<%Rows("<tr><td>%Id%</td><td>%Name%</td></tr>")%>' + // '</table></body>';var AMacros: TQMacroManager; AHtmlFile: String;begin AMacros := TQMacroManager.Create; try AMacros.Push('Title', 'QMacros HTML表格'); AMacros.Push('Rows', DoReplaceRows); AHtmlFile := ExtractFilePath(Application.ExeName) + 'index.html'; SaveTextW(AHtmlFile, AMacros.Replace(STableTemplate, '<%', '%>', MRF_PARSE_PARAMS)); WebBrowser1.Navigate('file:///' + StringReplaceW(AHtmlFile, '\', '/', [rfReplaceAll])); finally FreeAndNil(AMacros); end;end; procedure TForm1.DoReplaceRows(AMacro: TQMacroItem; const AQuoter: QCharW);var AMacros: TQMacroManager; AReplace: TQMacroComplied; AHelper: TQStringCatHelperW;begin AMacros := TQMacroManager.Create; AHelper := TQStringCatHelperW.Create; adsData.DisableControls; try AMacros.Push(adsData, ''); adsData.First; AReplace := AMacros.Complie(AMacro.Params[0].AsString, '%', '%'); while not adsData.Eof do begin AHelper.Cat(AReplace.Replace); adsData.Next; end; AMacro.Value.Value := AHelper.Value; finally FreeAndNil(AMacros); FreeAndNil(AHelper); FreeAndNil(AReplace); adsData.EnableControls; end;end;好了，我们来说明一点，我们在示例中直接定义了一个常量字符串STableTemplate，实际上这个东西你完全可以定义到外部文件中，然后在运行时用 LoadTextW 加载。后面的步骤就和这个示例一样了。
我们来看 Button1Click 都做了啥：
- 创建 TQMacroManager 对象实例 AMacros；
- 入栈了两个宏：
- Title ：用来做为表格标题
- Rows ：一个带参数的宏，参数是要重复的HTML内容
- 执行 AMacros 的替换，并将替换结果保存到当前程序下，命名为 index.html。
- 用 Navigate 函数加载保存的网页，以显示生成的 HTML 内容。
在这里，宏 Title 是一个固定值，而 Rows 是一个函数式的宏，由 DoReplaceRows 来提供进一步处理：
- 创建必要的实例；
- 将 adsData 数据集的字段入栈；
- 预编译 Rows 宏的参数，以便后面重复替换；
- 循环 adsData 生成，替换的每一步结果追加到 AHelper 中；
- 设置宏当前的值为 AHelper.Value；
- 清理局部变量的值；
OK，这样子，就完成了上面的模板的替换工作。这里注意，我创建了一个局部的 TQMacroManager 对象的实例，当然你也可以用 Button1Click 里的 AMacros，那样，宏 Title 、Rows 的值也会被嵌入。
我们看一下实际的运行结果：
热AI工具
Undresser.AI Undress
人工智能驱动的应用程序，用于创建逼真的裸体照片
AI Clothes Remover
用于从照片中去除衣服的在线人工智能工具。
Undress AI Tool
免费脱衣服图片
Clothoff.io
AI脱衣机
AI Hentai Generator
免费生成ai无尽的。
热门文章
热工具
记事本++7.3.1
好用且免费的代码编辑器
SublimeText3汉化版
中文版，非常好用
禅工作室 13.0.1
功能强大的PHP集成开发环境
Dreamweaver CS6
视觉化网页开发工具
SublimeText3 Mac版
神级代码编辑软件(SublimeText3)
热门话题
＆gt; gt;的目的是什么 元素？
Mar 21, 2025 pm 12:34 PM
本文讨论了HTML＆lt; Progress＆gt;元素，其目的，样式和与＆lt; meter＆gt;元素。主要重点是使用＆lt; progress＆gt;为了完成任务和LT;仪表＆gt;对于stati
＆lt; datalist＆gt;的目的是什么。 元素？
Mar 21, 2025 pm 12:33 PM
本文讨论了html＆lt; datalist＆gt;元素，通过提供自动完整建议，改善用户体验并减少错误来增强表格。Character计数：159
＆lt; meter＆gt;的目的是什么。 元素？
Mar 21, 2025 pm 12:35 PM
本文讨论了HTML＆lt; meter＆gt;元素，用于在一个范围内显示标量或分数值及其在Web开发中的常见应用。它区分了＆lt; meter＆gt;从＆lt; progress＆gt;和前
如何使用HTML5表单验证属性来验证用户输入？
Mar 17, 2025 pm 12:27 PM
本文讨论了使用HTML5表单验证属性，例如必需的，图案，最小，最大和长度限制，以直接在浏览器中验证用户输入。
视口元标签是什么？为什么对响应式设计很重要？
Mar 20, 2025 pm 05:56 PM
本文讨论了视口元标签，这对于移动设备上的响应式Web设计至关重要。它解释了如何正确使用确保最佳的内容缩放和用户交互，而滥用可能会导致设计和可访问性问题。
＆lt; iframe＆gt;的目的是什么。 标签？使用时的安全考虑是什么？
Mar 20, 2025 pm 06:05 PM
本文讨论了＆lt; iframe＆gt;将外部内容嵌入网页，其常见用途，安全风险以及诸如对象标签和API等替代方案的目的。
Gitee Pages静态网站部署失败：单个文件404错误如何排查和解决？
Apr 04, 2025 pm 11:54 PM
GiteePages静态网站部署失败：404错误排查与解决在使用Gitee...
