private bb: integer; public aa: Integer read GetFaa write SetFaa; function ...GetFaa:integer; begin result :=bb; end; procedure ...SetFaa(value :Integer); begin bb :=value; end;
16,748
社区成员
33,247
社区内容
加载中
试试用AI创作助手写篇文章吧