Живой шаблон для Delphi, который генерирует свойство с помощью getter / setter и создает приватное поле?

Question

Поиск здесь и в интернете не позволил мне привести пример живого шаблона для Delphi, который генерирует свойство с помощью getter / setter, а также генерирует приватное поле и выполняет усложнение. (SHIFT + CTRL + C)

Это возможно?

Answer 1

Пример с названием "Свойства чтения / записи" на уже упомянутой странице Delphi Live Templates можно изменить, чтобы генерировать методы получения / установки вместо личного поля:

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

Это, однако, не генерирует приватное поле.