Mariusz Boryczka
[e-mail]
l
typy fizyczne:
AnsiChar - 8-bitowy kod ANSI (ASCII)
WideChar - 16-bitowy zestaw UNICODE (w przyszłości więcej bajtów)
- pierwsze 256 znaków zgodne z ANSI
typ logiczny:
char - to\
samy z AnsiChar, ale mo\
e być inaczej
 ' ' 'A' 'a' '*' '.' '0' 'O' '
' 'z
' '''' ' '
#32 #65 #97 #42 #46 #48 #79 (#171) #39 #34
#$20 #$41 #$61 #$27 #$22
#0 #7 #10 #13 #27
'%' '%' '�%' 'i%'
#196 #179 #219 #202
Chr( kod )
{ Ord( znak ) }
UpCase( znak )
{ brak funkcji zamieniającej na małe litery }
{ w module Crt }
ReadKey
Wyprowadzanie kodu ASCII na konsolę:
program Project1; program Project1;
{$APPTYPE CONSOLE} {$APPTYPE CONSOLE}
uses uses
SysUtils; SysUtils;
var kod : byte; var znak : Char;
begin begin
for kod := 32 to 255 do
for znak := ' ' to #255 do
Write( kod:6, Chr(kod):2 );
Write(Ord(znak):6, znak:2 );
ReadLn
ReadLn
end.
end.
Zamiana na małe litery:
zn := Chr( Ord( zn ) + (Ord('a') - Ord('A')))
{ 32 }
{ Inc( zn , 32 ) }
Zamiana na małe litery:
if ( zn >= 'A' ) and (zn <= 'Z' ) then
{ if zn in ['A'..'Z'] then }
zn := Chr( Ord( zn ) + (Ord('a') - Ord('A')))
{ 32 }
{ Inc( zn , 32 ) }