pascalabcnet/TestSuite/intellisense_tests/property3.pas

19 lines
501 B
ObjectPascal
Raw Permalink Normal View History

2018-10-14 16:06:15 +03:00
type
T2 = class
i: integer;
end;
T = class
function Get(i: byte) := default(byte);
property X[i: T2]: T2{@class T2@} read Get;
property X2: T2{@class T2@} read Get;
2018-11-01 17:17:47 +03:00
property X3[i{@parameter i: T2;@}: T2]: T2 read Get;
property X4[i, j{@parameter j: integer;@}: integer;
z{@parameter z: T2;@}: T2]: T2 read Get;
property X5{@property T.X5[List<integer>]: T2; readonly;@}[l: List<integer>]: T2 read Get;
2018-10-14 16:06:15 +03:00
end;
begin
var o:= new T;
end.