8 lines
109 B
ObjectPascal
8 lines
109 B
ObjectPascal
|
type
|
|||
|
|
t1=class
|
|||
|
|
property p1:byte write writeln(value{@parameter value: byte;@});
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end.
|