pascalabcnet/TestSuite/intellisense_tests/class1.pas

21 lines
708 B
ObjectPascal
Raw Permalink Normal View History

2016-05-08 20:45:37 +03:00
uses System.Text;
2016-05-06 15:16:50 +03:00
type TClass = class
end;
2016-05-06 15:29:47 +03:00
type
2017-08-31 22:01:34 +03:00
TArr{@type TArr = array of integer@} = array of integer;
TSet{@type TSet = set of byte@} = set of byte;
TArr2{@type TArr2 = array[,] of TArr@} = array[,] of TArr;
TArr3{@type TArr3 = array[1..10] of string@} = array[1..10] of string;
TStr{@type TStr = string[5]@} = string[5];
2016-05-06 15:29:47 +03:00
2016-05-06 15:16:50 +03:00
begin
var t: TClass{@class TClass@};
2016-05-06 15:29:47 +03:00
var t1: TArr{@type TArr = array of integer@};
var t2: TSet{@type TSet = set of byte@};
var t3: TArr2{@type TArr2 = array[,] of TArr@};
var t4: TArr3{@type TArr3 = array[1..10] of string@};
var t5: TStr{@type TStr = string[5]@};
2017-11-19 20:30:00 +03:00
var sb: StringBuilder{@sealed class System.Text.StringBuilder@};
2016-05-06 15:16:50 +03:00
end.