当前位置：文江博客话题详情

Delphi 的实时模板可以使用 getter/setter 生成属性并创建私有字段？

发布于 2024-09-02 15:53:02 字数 114 浏览 5 评论 0原文

在这里和互联网上搜索并没有让我找到 Delphi 的实时模板示例，它生成带有 getter / setter 的属性，还生成私有字段并执行复杂操作。（SHIFT + CTRL + C）

这可能吗？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

旧夏天 2024-09-09 15:53:02

已经提到的 Delphi Live Templates 页面上标题为“读/写属性”的示例可以是修改为生成 getter/setter 方法而不是私有字段：

<?xml version="1.0" encoding="utf-8" ?>
<codetemplate   xmlns="http://schemas.borland.com/Delphi/2005/codetemplates"
                version="1.0.0">
    <template name="prop" invoke="manual">
        <description>
            read write property for field
        </description>
        <author>
            twm
        </author>
        <point name="ident">
            <text>Name</text>
            <hint>the name for the property</hint>
        </point>
        <point name="type">
            <text>Integer</text>
            <hint>the type for the property</hint>
        </point>
        <script language="Delphi" onenter="false" onleave="true">
            InvokeClassCompletion;
        </script>
        <code language="Delphi" delimiter="|">
        <![CDATA[property |ident|: |type| read Get|ident| write Set|ident|;
|end|]]>
        </code>
    </template>
</codetemplate>

但是，这不会生成私有字段。

The example titled "Read/write property" on the already-mentioned Delphi Live Templates page can be modified to generate getter/setter methods instead of a private field:

<?xml version="1.0" encoding="utf-8" ?>
<codetemplate   xmlns="http://schemas.borland.com/Delphi/2005/codetemplates"
                version="1.0.0">
    <template name="prop" invoke="manual">
        <description>
            read write property for field
        </description>
        <author>
            twm
        </author>
        <point name="ident">
            <text>Name</text>
            <hint>the name for the property</hint>
        </point>
        <point name="type">
            <text>Integer</text>
            <hint>the type for the property</hint>
        </point>
        <script language="Delphi" onenter="false" onleave="true">
            InvokeClassCompletion;
        </script>
        <code language="Delphi" delimiter="|">
        <![CDATA[property |ident|: |type| read Get|ident| write Set|ident|;
|end|]]>
        </code>
    </template>
</codetemplate>

This, however, doesn't generate the private field.

回复收藏 0 原文

~没有更多了~