mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 10:28:15 +02:00
15 lines
169 B
ObjectPascal
15 lines
169 B
ObjectPascal
{ %VERSION=1.1 }
|
|
var
|
|
w : widechar;
|
|
|
|
begin
|
|
case w of
|
|
'A' : ;
|
|
'B' : ;
|
|
#1234: ;
|
|
#8888: ;
|
|
#8889..#9999: ;
|
|
'Z'..'a': ;
|
|
end;
|
|
end.
|