10 lines
164 B
ObjectPascal
10 lines
164 B
ObjectPascal
|
type CharSet = set of char;
|
|||
|
|
function Test: sequence of CharSet;
|
|||
|
|
begin
|
|||
|
|
var set1 := ['a','b'];
|
|||
|
|
yield set1;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
assert(test().First = ['a','b']);
|
|||
|
|
end.
|