10 lines
132 B
ObjectPascal
10 lines
132 B
ObjectPascal
|
type TClass = class
|
||
|
|
FProp : integer;
|
||
|
|
property Prop : integer read FProp write FProp;
|
||
|
|
end;
|
||
|
|
|
||
|
|
var a : TClass;
|
||
|
|
|
||
|
|
begin
|
||
|
|
Inc(a.Prop);
|
||
|
|
end.
|