我怎样才能制作“环绕” 输入 Delphi 模板？

Question

我正在将我的应用程序迁移到 delphi 2009。我的应用程序仍然必须使用大量 AnsiString。 在迁移过程中，我发现自己总是将： 转换

abc := def;

为：

abc := string(def);

或者

abc := TDeviceAnsiString(def);

我知道我应该能够使用模板来做到这一点，但我发现模板 - 虽然功能强大 - 并不那么容易工作。 这就是我一直在尝试的：

<?xml version="1.0" encoding="utf-8" ?>

<codetemplate   xmlns="http://schemas.borland.com/Delphi/2005/codetemplates"
                version="1.0.0">
    <template name="das" invoke="auto">
        <point name="expr">
            <script language="Delphi">
                InvokeCodeCompletion;
            </script>
            <hint>
                MP: TDeviceAnsiString
            </hint>
            <text>
                True
            </text>
        </point>
        <description>
            MP: TDeviceAnsiString
        </description>
        <author>
            Mike
        </author>
        <code language="Delphi" context="any" delimiter="|"><![CDATA[TDeviceAnsiString(|selected|)|end|]]>
        </code>
    </template>
</codetemplate>

它不会出现在环绕菜单中，并且不会在我想要的时候激活。 我希望能够

abc := **das***[tab]*def;

或选择“def”并使用“surround”来获得：

abc := TDeviceAnsiString(def);

谢谢您的帮助！

Answer 1

这应该可以做到：

<?xml version="1.0" encoding="utf-8" ?>
<codetemplate   xmlns="http://schemas.borland.com/Delphi/2005/codetemplates"
                version="1.0.0">
    <template name="das" surround="true" invoke="auto">
        <description>
            MP: TDeviceAnsiString
        </description>
        <author>
            Mike rev François
        </author>
        <code language="Delphi" delimiter="|"><![CDATA[TDeviceAnsiString(|end||selected|)]]>
        </code>
    </template>
</codetemplate>

添加：您可以使用 Delphi Wiki 找到更多信息="http://delphi.wikia.com/wiki/Live_Templates_Technical_Info" rel="noreferrer">LiveTemplates 技术信息