8 lines
316 B
ObjectPascal
8 lines
316 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'];
|
|
end. |