blob: d9ed7ff2d0b44be0cca99b279f3c5f4af65bdac3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{ Old file: tbs0063.pp }
{ shows problem with ranges in sets for variables OK 0.99.7 (PFV) }
{ may also crash/do weird error messages with the compiler }
var
min: char;
max: char;
i: char;
begin
min:='c';
max:='z';
if i in [min..max] then
Begin
end;
end.
|
