20 lines
293 B
ObjectPascal
20 lines
293 B
ObjectPascal
|
type
|
|||
|
|
TExample = class
|
|||
|
|
private
|
|||
|
|
fX: integer;
|
|||
|
|
|
|||
|
|
public
|
|||
|
|
property X: integer
|
|||
|
|
read fX
|
|||
|
|
write
|
|||
|
|
begin
|
|||
|
|
if value < 0 then
|
|||
|
|
raise new System.ArgumentException();
|
|||
|
|
fX := value;
|
|||
|
|
end;
|
|||
|
|
property Y: integer read fX write begin writeln(2);end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
end.
|