【注】本教程仅出于演示目的，并不代表作者推荐或者反对某种做法，也不代表这些代码有任何其它实际用途。
qmacros 的是一个高效的栈式查找替换引擎，为您提供丰富的功能。下面的代码演示了如何从一段 php+html 混合代码得到所有的 php 定义的变量名（其中源代码放到了memo1 里，输出的变量名称直接放到了memo2中）:
delphi/pascal
type tform1 = class(tform) button1: tbutton; memo1: tmemo; memo2: tmemo; procedure button1click(sender: tobject); private { private declarations } procedure docodeblockfound(asender: tqmacromanager; aname: qstringw; const aquoter: qcharw; var ahandled: boolean); procedure dovarnamefound(asender: tqmacromanager; aname: qstringw; const aquoter: qcharw; var ahandled: boolean); public { public declarations } end;var form1: tform1;implementation{$r *.dfm}procedure tform1.button1click(sender: tobject);var amacros: tqmacromanager; aresult: tqmacrocomplied;begin amacros := tqmacromanager.create; try alist.duplicates := dupignore; amacros.onmacromissed := docodeblockfound; //complie is enough aresult := amacros.complie(memo1.text, ''); if assigned(aresult) then //we don't use the result for replace,so free it. freeandnil(aresult); finally amacros.free; end;end;procedure tform1.docodeblockfound(asender: tqmacromanager; aname: qstringw; const aquoter: qcharw; var ahandled: boolean);var avarparser: tqmacromanager; areplace: tqmacrocomplied;begin avarparser := tqmacromanager.create; try avarparser.onmacromissed := dovarnamefound; areplace := avarparser.complie(aname, '$', '', mrf_end_with_invalid_char); if areplace nil then begin asender.push(aname, ''); ahandled := true; freeandnil(areplace); end; finally freeandnil(avarparser); end;end;procedure tform1.dovarnamefound(asender: tqmacromanager; aname: qstringw; const aquoter: qcharw; var ahandled: boolean);begin memo2.lines.add(aname); asender.push(aname, ''); ahandled := true;end;
type tform1 = class(tform) button1: tbutton; memo1: tmemo; memo2: tmemo; procedure button1click(sender: tobject); private { private declarations } procedure docodeblockfound(asender: tqmacromanager; aname: qstringw; const aquoter: qcharw; var ahandled: boolean); procedure dovarnamefound(asender: tqmacromanager; aname: qstringw; const aquoter: qcharw; var ahandled: boolean); public { public declarations } end; var form1: tform1; implementation {$r *.dfm} procedure tform1.button1click(sender: tobject);var amacros: tqmacromanager; aresult: tqmacrocomplied;begin amacros := tqmacromanager.create; try alist.duplicates := dupignore; amacros.onmacromissed := docodeblockfound; //complie is enough aresult := amacros.complie(memo1.text, ''); if assigned(aresult) then //we don't use the result for replace,so free it. freeandnil(aresult); finally amacros.free; end;end; procedure tform1.docodeblockfound(asender: tqmacromanager; aname: qstringw; const aquoter: qcharw; var ahandled: boolean);var avarparser: tqmacromanager; areplace: tqmacrocomplied;begin avarparser := tqmacromanager.create; try avarparser.onmacromissed := dovarnamefound; areplace := avarparser.complie(aname, '$', '', mrf_end_with_invalid_char); if areplace nil then begin asender.push(aname, ''); ahandled := true; freeandnil(areplace); end; finally freeandnil(avarparser); end;end; procedure tform1.dovarnamefound(asender: tqmacromanager; aname: qstringw; const aquoter: qcharw; var ahandled: boolean);begin memo2.lines.add(aname); asender.push(aname, ''); ahandled := true;end;
把界面贴出来给大家便于对照着看：
好了，我们在 button1 的 onclick 事件里响应函数 button1click 里做了这么点事：
创建了 tmacromanager 对象的实例 amacros，然后设置其 onmacromissed 事件的响应函数，指向 docodeblockfound 函数，用于找到以 结束的代码块。docodeblockfound 函数做了进一步的处理： 创建了一个 tqmacromanager 对象的实例，然后设置其 onmacromissed 事件的响应函数指向 dovarnamefound。在 dovarnamefound 里，我们将找到的变量名输出到memo2中。 调用 amacros 的 complie 方法，解析源代码，找到 php 代码块，由于我们没有入栈任何代码块的宏定义，所以它会触发 onmacromissed 事件的响应函数 docodeblockfound，从而引发进一步的处理，完成变量名称的输入任务。 注意一点，我们在 onmacromissed 事件的处理中，都入栈了 aname 命名的参数，并设置 ahandled 为 true，以避免 qmacros 后面的默认处理代码。
好了，代码的简单解读就到这里，实际上很一目了然。这里看一下效果：