15 lines
298 B
ObjectPascal
15 lines
298 B
ObjectPascal
|
begin
|
|||
|
|
match 'asd' with
|
|||
|
|
string(s):
|
|||
|
|
match s with
|
|||
|
|
integer(i): Assert(false);
|
|||
|
|
string(s1) when s.Length > 1: ;
|
|||
|
|
else Assert(false);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
match 'asd' with
|
|||
|
|
integer(i): Assert(false);
|
|||
|
|
string(s1) when s1.Length > 3: Assert(false);
|
|||
|
|
end;
|
|||
|
|
end.
|