Character codes: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 173: | Line 173: | ||
assert(index == 1); |
assert(index == 1); |
||
}</lang> |
}</lang> |
||
=={{header|Delphi}}== |
|||
Example from Studio 2006. |
|||
<lang delphi>program Project1; |
|||
{$APPTYPE CONSOLE} |
|||
uses |
|||
SysUtils; |
|||
var |
|||
aChar:Char; |
|||
aCode:Byte; |
|||
uChar:WideChar; |
|||
uCode:Word; |
|||
begin |
|||
aChar := Chr(97); Writeln(aChar); |
|||
aCode := Ord(aChar); Writeln(aCode); |
|||
uChar := WideChar(97); Writeln(uChar); |
|||
uCode := Ord(uChar); Writeln(uCode); |
|||
Readln; |
|||
end. |
|||
</lang> |
|||
=={{header|E}}== |
=={{header|E}}== |