我怎样才能制作一个“Surround”类型的Delphi模板？

发布时间：2020-12-15 04:18:02 所属栏目：大数据来源：网络整理

导读：我正在将我的应用程序迁移到delphi 2009.我的应用程序仍然必须使用大量的AnsiString.在迁移过程中,我发现自己总是转换： abc := def; 成： abc := string(def); 要么 abc := TDeviceAnsiString(def); 我知道我应该可以用模板做到这一点,但我发现模板 – 虽然

我正在将我的应用程序迁移到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);

谢谢您的帮助！

解决方法

这应该这样做：

<?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>

补充：您可以在LiveTemplates Technical Infos上找到有关Delphi Wiki的更多信息

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!