如何在Delphi IDE中更快地创建自动属性？

Question

我需要创建和管理许多简单的已发布属性.如果他们看起来像我那么称他们为自动属性:

private
  FTitle: string;
published
  property Title: string read FTitle write FTitle;

通常我会在下一步创建它们:

1. 添加属性名称和类型:

   property Title: string

2. 选择属性名称并将其复制Title到剪贴板.

3. 附加行 read F Ctrl+V write F Ctrl+V ;

4. 按Ctrl+Shift+C,这将生成私有字段

有没有办法排除步骤2和3以更快地添加属性？也许有可能为此创建一些宏？

Answer 1

自Delphi 2006起,您可以使用LiveTemplates.

以Delphi XE为例:

• 键入propf并按下Ctrl + J击键
• 写下属性名称和TAB按键
• 写下属性类型名称,命中TAB或ENTER键,你就完成了

您可以在此处找到有关如何编写自己的实时模板的更多信息:

• Delphi Live Templates - http://delphi.wikia.com
• Creating Live Templates - http://docwiki.embarcadero.com

Answer 2

我使用宏来达到这个目的。

例如我有带有字段的模型

private
  FTitle: string;
  FName: string
  FAge: Integer

然后我将字段复制粘贴到已发布部分并创建宏

1. 转到第一个字段并点击Home
2. 点击Ctrl + Shift + R开始录制宏
3. 使用Crtl + ->, Crtl + <-和End键进行导航，并将第一个字段转换为属性，如属性 Title: string Read FTitle Write FTitle;
4. 之后点击Home并转到下一行
5. 通过点击完成宏Ctrl + Shift + R
6. 对于所有其他字段，只需按Crtl + Shift + P

乍一看似乎很困难，但技巧会得到回报。