12

我需要创建和管理许多简单的已发布属性。如果它们看起来像这样，我称它们为自动属性：

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 以更快地添加属性？也许可以为此创建一些宏？

4

3 回答 3

17

从 Delphi 2006 开始，您可以使用 LiveTemplates。

以 Delphi XE 为例：

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

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

于 2012-05-30T13:59:47.210 回答
4

我为此使用宏。

例如，我有带字段的模型

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

起初这似乎很困难，但技能会得到回报。

于 2013-01-09T12:28:01.720 回答
1

在 XE7 中键入 prom 并点击enter. 它似乎更快。

于 2016-02-19T15:45:32.650 回答