001_System.AnsiChar 

System.AnsiChar

type AnsiChar = #0..#255;

Represenets a byte-size(8-bits) character type.
AnsiChar values are byte-sized(8-bits) character ordered according to the locale character set, which is
possibly multibyte. The first 256 Unicode characters correspond to ANSI characters.
It can be assigned from a character or integer value.
 1 program Project1;
 2 
 3 {$APPTYPE CONSOLE}
 4 
 5 uses
 6     System.SysUtils;
 7 
 8 var
 9     myChar: AnsiChar;
10 
11 begin
12     try
13         // Assign from a character constant
14         myChar := 'A';
15         Writeln('Letter A = ' + myChar);
16 
17         // Assign from a integer constant.
18         myChar := #65;
19         Writeln('#65 = ' + myChar);
20 
21         // Using Chr to convery a number
22         myChar := Chr(66);
23         Writeln('Chr(66) = ' + myChar);
24 
25         // Using Char as a standard cast
26         myChar := Char(66);
27         Writeln('Char(66) = ' + myChar);
28 
29         // Assign from a control char - tab
30         myChar := ^I;
31         Writeln(myChar + '====');
32 
33         readln;
34         { TODO -oUser -cConsole Main : Insert code here }
35     except
36         on E: Exception do
37             Writeln(E.ClassName, ': ', E.Message);
38     end;
39 
40 end.
View Code

posted @ 2014-04-16 10:17  oszhouzhb  阅读(100)  评论(0)    收藏  举报