mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:07:58 +02:00
14 lines
152 B
ObjectPascal
14 lines
152 B
ObjectPascal
var
|
|
w : widechar;
|
|
|
|
begin
|
|
case w of
|
|
'A' : ;
|
|
'B' : ;
|
|
#1234: ;
|
|
#8888: ;
|
|
#8889..#9999: ;
|
|
'Z'..'a': ;
|
|
end;
|
|
end.
|