17 lines
364 B
ObjectPascal
17 lines
364 B
ObjectPascal
|
type
|
|||
|
|
TExample = record
|
|||
|
|
private a := new integer[10,10];
|
|||
|
|
|
|||
|
|
property p[i, j: integer]: integer read a[i, j] write begin a[i,j] := value; end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var c := new TExample();
|
|||
|
|
for var i:=0 to 9 do
|
|||
|
|
for var j:=0 to 9 do
|
|||
|
|
c.p[j, i] := i+j*j;
|
|||
|
|
|
|||
|
|
for var i:=0 to 9 do
|
|||
|
|
for var j:=0 to 9 do
|
|||
|
|
assert(c.p[j, i] = i+j*j);
|
|||
|
|
end.
|