17 lines
233 B
ObjectPascal
17 lines
233 B
ObjectPascal
begin
|
|
var o := new object();
|
|
var p: procedure := ()-> begin
|
|
match o with
|
|
integer(o1):;
|
|
double(o2):;
|
|
char(o3):;
|
|
else
|
|
begin
|
|
exit;
|
|
end;
|
|
end;
|
|
assert(false);
|
|
end;
|
|
|
|
p;
|
|
end. |