10 lines
417 B
ObjectPascal
10 lines
417 B
ObjectPascal
begin
|
|
var s{@var s: set of integer;@} := [1,2,4];
|
|
var s1{@var s1: set of string;@} := ['12','24','22'];
|
|
var s2{@var s2: set of char;@} := ['1','2','3'];
|
|
var s3{@var s3: set of real;@} := [1,2,4.4];
|
|
var s4{@var s4: set of real;@} := [1.2,2,4];
|
|
var s5{@var s5: set of Object;@} := [1.2,2,'aa'];
|
|
var s6{@var s6: set of Object;@} := [1, '1'];
|
|
var s7{@var s7: set of Object;@} := ['1', 1];
|
|
end. |