pascalabcnet/InstallerSamples/!Tutorial/07_CharString/CharTable.pas

9 lines
169 B
ObjectPascal
Raw Normal View History

// Таблица символов и их кодов
2015-05-14 22:35:07 +03:00
begin
for var i:=32 to 255 do
begin
write(i:4,chr(i):2,' ');
if i mod 8 = 7 then writeln;
end;
end.