18 lines
275 B
ObjectPascal
18 lines
275 B
ObjectPascal
unit u_setofbyte1;
|
|
procedure Test;
|
|
var s : set of byte := [1..4];
|
|
s2 : set of byte := [-2..5];
|
|
|
|
begin
|
|
assert(s=[1..4]);
|
|
assert(s2=[0..5]);
|
|
end;
|
|
|
|
var s : set of byte := [1..4];
|
|
s2 : set of byte := [-2..5];
|
|
|
|
begin
|
|
assert(s=[1..4]);
|
|
assert(s2=[0..5]);
|
|
Test;
|
|
end. |