blob: 716b643cd6fb9daff3a1952890a99e45545c0124 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{$mode objfpc}
type
TObj = object
function GetItem(const i :Integer) :Integer;
property Items[i :Integer] :Integer read GetItem; default;
end;
function TObj.GetItem(const i :Integer) :Integer;
begin
Result := i;
end;
var
Obj :TObj;
begin
WriteLn(Obj[0],' ',Obj[10]);
end.
|
