属性的自动完成

weixin_33881041

于 2014-09-26 15:32:00 发布

阅读量73

点赞数

原文链接：https://my.oschina.net/hermer/blog/319571

版权

为什么80%的码农都做不了架构师？>>>

//在 type 区写入：
  TMyClass = class
    property s: string;
  end;

//然后把光标放在其中，执行 Ctrl+Shift+C，可以自动生成以下代码：

  TMyClass = class
  private
    Fs: string;
    procedure Sets(const Value: string);
  published
    property s: string read Fs write Sets;
  end;


{ TMyClass }

procedure TMyClass.Sets(const Value: string);
begin
  Fs := Value;
end;

转载于:https://my.oschina.net/hermer/blog/319571