mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-15 01:08:35 +02:00
20 lines
388 B
ObjectPascal
20 lines
388 B
ObjectPascal
|
|
function DoCheck(Key:WideChar):boolean;
|
|
begin
|
|
DoCheck:=(Key in [WideChar(#0), WideChar(#8), WideChar(#10),
|
|
WideChar(#13), WideChar(#27), WideChar(#127)]);
|
|
end;
|
|
|
|
var
|
|
Key:WideChar;
|
|
err : boolean;
|
|
begin
|
|
for Key:=WideChar(128) to WideChar(2048) do
|
|
if DoCheck(Key) then
|
|
begin
|
|
writeln(word(Key),' (',Key,') in set');
|
|
err:=true;
|
|
end;
|
|
if err then halt(1);
|
|
end.
|