delphi - Delphi 2010-属性向导或类似工具，以避免手动编码 getter / setter

是否有任何内置或外部工具（向导）可轻松使用getters / setters添加类成员（发布的字段）？

添加每个字段需要我编写很多代码。假设我需要添加Foo: Bar;属性。

我需要写

FFoo: TBar;
procedure SetFoo(const AValue: TBar);
function GetFoo: TBar;

...

property Foo: TBar read GetFoo write SetFoo

有什么工具可以使其快速简便吗？

最佳答案

类型：

property Foo: TBar read GetFoo write SetFoo;

要么：

property Foo: TBar read FFoo write SetFoo;

然后按CTRL-SHIFT-C

编辑：后者（设置程序和字段组合）可以通过只编写以下内容，然后按CTRL-SHIFT-C来更快地完成：

property Foo: TBar;

如果您在类中编写方法并且希望创建匹配的实现，则此快捷方式也可以使用。