blob: a8ca04b331b28863c37f89eff0c37a74d34f1137 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ %opt=-Sen -vn }
{ Source provided for Free Pascal Bug Report 4068 }
{ Submitted by "David Butler" on 2005-06-12 }
{ e-mail: djbutler@gmail.com }
{$mode delphi}
function test: boolean;
var A, B : AnsiChar;
begin
A := '1';
B := '2';
Result := ('0' in [A..B]);
end;
begin
test;
end.
|
