Delphi 2010 - 属性向导或类似的东西，以避免手动编码 getter/setter

Question

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

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

我需要写

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

...

property Foo: TBar read GetFoo write SetFoo

有什么工具可以让它变得快速而简单吗？

Answer 1

类型:

property Foo: TBar read GetFoo write SetFoo;

或者:

property Foo: TBar read FFoo write SetFoo;

然后按CTRL-SHIFT-C

编辑:后者( setter 和字段组合)可以通过仅编写以下内容来更快地完成，然后按 CTRL-SHIFT-C:

property Foo: TBar;

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