[文字列をUnicodeに変換する]

「東京」という文字列を Shift-JISと、Unicodeで表示します。

program tips0027;
{$APPTYPE CONSOLE}
uses SysUtils;
type
 SJISString   = type AnsiString(932);     //Shif-JIS(CP932)
var
 s   : string;
 US  : UnicodeString; 
 SJIS: SJISString;
begin
 s:='東京'; US:=s; SJIS:=s;
 WriteLn(s);
 WriteLn('  SJISString  =',  #9,IntToStr(Ord(SJIS[1])*256+Ord(SJIS[2])),' ',IntToStr(Ord(SJIS[3])*256+Ord(SJIS[4])));
 WriteLn('  Unicode     =',  #9,IntToStr(Ord(US[1])),' ',IntToStr(Ord(US[2])));
 WriteLn('  SJISString  =',  #9,'$',IntToHex(Ord(SJIS[1])*256+Ord(SJIS[2]),4),' $',IntToHex(Ord(SJIS[3])*256+Ord(SJIS[4]),4));
 WriteLn('  Unicode     =',  #9,'$',IntToHex(Ord(US[1]),4),' $',IntToHex(Ord(US[2]),4));
end.

dcc32 tips0027.pas 
tips0027.exe  > tips0027.txt
pause

東京
  SJISString  =	37772 35742
  Unicode     =	26481 20140
  SJISString  =	$938C $8B9E
  Unicode     =	$6771 $4EAC