//=============================================================================
//  コードポイントと文字
//  Unicode ( UTF-16 )
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LChar : Char;
  LCode : Cardinal;
begin
  Memo1.Lines.Clear;

  LChar := 'あ';
  Memo1.Lines.Add(LChar);

  // 3042 は あ のコードポイント　( $ を付ければ 16 進数 )
  // # を付ければ文字として Char に代入可能
  LChar := #$3042;
  Memo1.Lines.Add(LChar);
  //
  LChar := Char($3042);
  Memo1.Lines.Add(LChar);

  // LCode は あ のコードポイントの値になる
  // Ord('あ') でも同じ
  LCode := Ord(LChar);

  LChar := Char(LCode);
  Memo1.Lines.Add(LChar);
end;

//=============================================================================
//  コードポイントと文字列
//  Unicode ( UTF-16 )
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LStr   : string;
  LIndex : Integer;
  LCode  : Cardinal;
begin
  Memo1.Lines.Clear;

  LStr := '日本語';
  Memo1.Lines.Add(LStr);

  LStr := #$65E5 + #$672C + #$8A9E;
  Memo1.Lines.Add(LStr);

  LStr := #$65E5#$672C#$8A9E;
  Memo1.Lines.Add(LStr);

  LStr := Char($65E5) + Char($672C) + Char($8A9E);
  Memo1.Lines.Add(LStr);

  // 文字列の各文字のコードポイントの値をリスト
  for LIndex := 1 to Length(LStr) do begin
    LCode := Ord(LStr[LIndex]);
    Memo1.Lines.Add('$' + IntToHex(LCode, 4));
  end;
end;

//=============================================================================
//  半角カナの小文字を半角カナの大文字に変換
//  Unicode の場合
//  Unicode では半角カナの小文字は $FF67 から $FF6F の 9 文字
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
const
  CharArray : array [$FF67..$FF6F] of Char
      = (#$FF71, #$FF72, #$FF73, #$FF74, #$FF75, #$FF94, #$FF95, #$FF96, #$FF82);
var
  Ltext  : string;
  LCode  : Integer;
begin
  LText := 'アｱ ｧｨｩｪｫｬｭｮｯ 日本語';

  Memo1.Lines.Clear;
  Memo1.Lines.Add(Ltext);

  for LCode := Low(CharArray) to High(CharArray) do begin
    Ltext := StringReplace(Ltext, Char(LCode), CharArray[LCode], [rfReplaceAll]);
  end;
  Memo1.Lines.Add(LText);
end;

//=============================================================================
//  半角カナの小文字を半角カナの大文字に変換
//  Shift_JIS ( コードページは 932 ) の場合
//  Shift_JIS では半角カナの小文字は $A7 から $AF の 9 文字
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
const
  CharArray : array [$A7..$AF] of AnsiChar
     = (#$B1, #$B2, #$B3, #$B4, #$B5, #$D4, #$D5, #$D6, #$C2);
var
  LUniStr  : string;
  LAnsiStr : AnsiString;
  LCode    : Byte;
  LIndex   : Integer;
begin
  LUniStr  := 'アｱ ｧｨｩｪｫｬｭｮｯ 日本語';
  LAnsiStr := AnsiString(LUniStr);

  Memo1.Lines.Clear;
  Memo1.Lines.Add(string(LAnsiStr));

  LIndex := 1;
  while LIndex <= Length(LAnsiStr) do begin

    LCode := Ord(LAnsiStr[LIndex]);
    if AnsiChar(LCode) in LeadBytes then begin
      Inc(LIndex, 2);
      Continue;
    end;

    if LCode in [Low(CharArray)..High(CharArray)] then begin
      LAnsiStr[LIndex] := CharArray[LCode];
    end;
    Inc(LIndex);
  end;
  Memo1.Lines.Add(String(LAnsiStr));
end;

//=============================================================================
//  半角カナの小文字を半角カナの大文字に変換
//  Ansi 版の Delphi 用のコード
//  Delphi 6 / 7 / 2007 は Andi 版の Delphi
//=============================================================================
procedure TForm1.Button3Click(Sender: TObject);
procedure TForm1.Button1Click(Sender: TObject);
const
  CharArray : array [$A7..$AF] of Char
       = (#$B1, #$B2, #$B3, #$B4, #$B5, #$D4, #$D5, #$D6, #$C2);
var
  LText  : string;
  LCode  : Byte;
  LIndex : Integer;
begin
  LText := 'アｱ ｧｨｩｪｫｬｭｮｯ 日本語';

  Memo1.Lines.Clear;
  Memo1.Lines.Add(LText);

  LIndex := 1;
  while LIndex <= Length(LText) do begin

    LCode := Ord(LText[LIndex]);
    if Char(LCode) in LeadBytes then begin
      Inc(LIndex, 2);
      Continue;
    end;

    if LCode in [Low(CharArray)..High(CharArray)] then begin
      LText[LIndex] := CharArray[LCode];
    end;
    Inc(LIndex);
  end;

  Memo1.Lines.Add(LText);
end;

//=============================================================================
//  半角カナの小文字を半角カナの大文字に変換
//  Unicode の場合．文字単位で処理
//  Unicode では半角カナの小文字は $FF67 から $FF6F の 9 文字
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
const
  CharArray : array [$FF67..$FF6F] of Char
      = (#$FF71, #$FF72, #$FF73, #$FF74, #$FF75, #$FF94, #$FF95, #$FF96, #$FF82);
var
  LText  : string;
  LCode  : Integer;
  LIndex : Integer;
begin
  LText := 'アｱ ｧｨｩｪｫｬｭｮｯ 日本語';

  Memo1.Lines.Clear;
  Memo1.Lines.Add(LText);

  for LIndex := 1 to Length(LText) do begin
    LCode := Ord(LText[LIndex]);
    if (LCode >= Low(CharArray)) and (LCode <= High(CharArray)) then begin
      LText[LIndex] := CharArray[LCode];
    end;
  end;
  Memo1.Lines.Add(LText);
end;

//=============================================================================
//  半角カナの大文字を半角カナの小文字に変換
//  Unicode の場合
//  Unicode では半角カナの小文字は $FF67 から $FF6F の 9 文字
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
const
  CharArray : array [0..8] of Char
      = (#$FF71, #$FF72, #$FF73, #$FF74, #$FF75, #$FF94, #$FF95, #$FF96, #$FF82);
var
  Ltext  : string;
  LIndex : Integer;
  LChar  : Char;
begin
  LText := 'アｧ ｱｲｳｴｵﾔﾕﾖﾂ 日本語';

  Memo1.Lines.Clear;
  Memo1.Lines.Add(Ltext);

  for LIndex := Low(CharArray) to High(CharArray) do begin
    LChar := CharArray[LIndex];
    Ltext := StringReplace(Ltext, LChar, Char(LIndex + $FF67),　[rfReplaceAll]);
  end;
  Memo1.Lines.Add(LText);
end;

//=============================================================================
//  コードページ 50221 の文字列の半角カナの小文字を大文字に変換
//  コードページの変換に TEncoding.GetEncoding を使用
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
const
  CharArray : array [$FF67..$FF6F] of Char
      = (#$FF71, #$FF72, #$FF73, #$FF74, #$FF75, #$FF94, #$FF95, #$FF96, #$FF82);
var
  LFilePath : string;
  LSavePath : string;
  LCodePage : Integer;
  LStrList  : TStringList;
  LDstStr   : string;
  LCode     : Integer;
begin
  LFilePath := '..\50221.txt';
  LSavePath := 'convJIS.txt';
  LCodePage := 50221;

  // JIS コードのテキストファイルを読み込む
  LStrList := TStringList.Create;
  try
    LStrList.LoadFromFile(LFilePath, TEncoding.GetEncoding(LCodePage));
    Memo1.Lines.Text := LStrList.Text;

    // 半角カナの小文字を半角カナの大文字に変換
    LDstStr := LStrList.Text;
    for LCode := Low(CharArray) to High(CharArray) do begin
      LDstStr := StringReplace(LDstStr, Char(LCode), CharArray[LCode], [rfReplaceAll]);
    end;
    Memo1.Lines.Add(Trim(LDstStr));

    // 変換後のテキストを JIS コードにしてファイルに保存
    LStrList.Text := LDstStr;
    LStrList.SaveToFile(LSavePath, TEncoding.GetEncoding(LCodePage));


    // 保存したテキストを読み込んで表示
    // 確認のために，保存したテキストを読み込んで表示
    LStrList.Clear;
    LStrList.LoadFromFile(LSavePath, TEncoding.GetEncoding(LCodePage));
    Memo1.Lines.Add(LStrList.Text);
  finally
    FreeAndNil(LStrList);
  end;
end;

implementation   

uses
  MECSUtils;

{$R *.dfm}

//=============================================================================
//  コードページ 50221 の文字列の半角カナの小文字を大文字に変換
//  コードページの変換に MECSUtils の関数類を使用
//
//  uses に MECSUtils が必要　
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
const
  CharArray : array [$FF67..$FF6F] of WideChar
      = (#$FF71, #$FF72, #$FF73, #$FF74, #$FF75, #$FF94, #$FF95, #$FF96, #$FF82);
var
  LFilePath : string;
  LsavePath : string;
  LCodePage : Cardinal;
  LStream   : TMemoryStream;
  LRawStr   : ByteString;
  LDstStr   : WideString;
  LCode     : Integer;
begin
  LFilePath := '..\50221.txt';
  LSavePath := 'convJIS.txt';
  LCodePage := 50221;

  LStream := TMemoryStream.Create;
  try
    // JIS コードのテキストファイルを読み込む
    LStream.LoadFromFile(LFilePath);
    SetLength(LRawStr, LStream.Size);
    LStream.Read(LRawStr[1], LStream.Size);

    // 読み込んだテキストを Unicdoe に変換
    Mecsutils.ConvertMultiByteToUnicode(LCodePage, LRawStr, LDstStr);
    Memo1.Lines.Text := LDstStr;

    // 半角カナの小文字を半角カナの大文字に変換
    for LCode := Low(CharArray) to High(CharArray) do begin
      LDstStr := StringReplace(LDstStr, WideChar(LCode), CharArray[LCode], [rfReplaceAll]);
    end;
    Memo1.Lines.Add(LDstStr);

    // 変換後のテキストを JIS コードにしてファイルに保存
    LRawStr := '';
    LStream.Clear;
    Mecsutils.ConvertUnicodeToMultiByte(LCodePage, LDstStr, LRawStr);
    LStream.Write(LRawStr[1], Length(LRawStr));
    LStream.SaveToFile(LSavePath);


    // 確認のために，保存したテキストを読み込む
    LStream.LoadFromFile(LSavePath);
    SetLength(LRawStr, LStream.Size);
    LStream.Read(LRawStr[1], LStream.Size);

    // 読み込んだテキストを Unicdoe に変換
    Mecsutils.ConvertMultiByteToUnicode(LCodePage, LRawStr, LDstStr);
    Memo1.Lines.Add(LDstStr);
  finally
    FreeAndNil(LStream);
  end;
end;

//=============================================================================
//  コードページ 50222 のテキストを読み込んで表示
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LFilePath : string;
  LCodePage : Integer;
  LStrList  : TStringList;
begin
  LFilePath := '..\50222.txt';
  LCodePage := 50222;

  LStrList := TStringList.Create;
  try
    LStrList.LoadFromFile(LFilePath, TEncoding.GetEncoding(LCodePage));
    Memo1.Lines.Text := LStrList.Text;
  finally
    FreeAndNil(LStrList);
  end;
end;

//=============================================================================
//  JIS コードのテキストファイルを作成
//  コードページは 50220, 50221, 50222 の 3 種類ある
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
type
  Jis50220String = type AnsiString(50220);
  Jis50221String = type AnsiString(50221);
  Jis50222String = type AnsiString(50222);
var
  LText     : string;
  L50220Str : Jis50220String;
  L50221Str : Jis50221String;
  L50222Str : Jis50222String;
  LStream   : TMemoryStream;
begin
  LText := 'アｱ ｧｨｩｪｫｬｭｮｯ 日本語';


  L50220Str := Jis50220String(LText);
  LStream := TMemoryStream.Create;
  try
    LStream.Write(L50220Str[1], length(L50220Str));
    LStream.Position := 0;
    LStream.SaveToFile('..\50220' + '.txt');
  finally
    FreeAndNil(LStream);
  end;


  L50221Str := Jis50221String(LText);
  LStream := TMemoryStream.Create;
  try
    LStream.Write(L50221Str[1], length(L50221Str));
    LStream.Position := 0;
    LStream.SaveToFile('..\50221' + '.txt');
  finally
    FreeAndNil(LStream);
  end;


  L50222Str := Jis50222String(LText);
  LStream := TMemoryStream.Create;
  try
    LStream.Write(L50222Str[1], length(L50222Str));
    LStream.Position := 0;
    LStream.SaveToFile('..\50222' + '.txt');
  finally
    FreeAndNil(LStream);
  end;
end;

//=============================================================================
//  JIS コードのテキストファイルを作成
//  コードページは 50220, 50221, 50222 の 3 種類ある
//  TEncoding.GetEncoding を使用
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LStrList : TStringList;
begin
  LStrList := TStringList.Create;
  try
    LStrList.Text := 'アｱ ｧｨｩｪｫｬｭｮｯ 日本語';

    LStrList.SaveToFile('..\50220.txt', TEncoding.GetEncoding(50220));
    LStrList.SaveToFile('..\50221.txt', TEncoding.GetEncoding(50221));
    LStrList.SaveToFile('..\50222.txt', TEncoding.GetEncoding(50222));
  finally
    FreeAndNil(LStrList);
  end;
end;

//=============================================================================
//  コードページ 50221 のテキストの JIS コードの例
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
type
  Jis1String = type AnsiString(50221);
var
  LJisStr   : Jis1String;
  LByte     : Byte;
  LTextByte : string;
  LTextChar : string;
  LIndex    : Integer;
begin
  LJisStr := 'ァア';

  Memo1.Lines.Clear;
  Memo1.Lines.Add(string(LJisStr));

  LTextByte := '';
  LTextChar := '';
  for LIndex := 1 to Length(LJisStr) do begin
    LByte := Ord(LJisStr[LIndex]);
    LTextByte := LTextByte + '$' + IntToHex(LByte, 2) + ' ';
    LTextChar := LTextChar + ' ' + Char(LByte) + '  ';
  end;

  Memo1.Lines.Add(TrimRight(LTextByte));
  Memo1.Lines.Add(TrimRight(LTextChar));
end;

implementation

uses
  System.WideStrUtils;

{$R *.dfm}

//=============================================================================
//  全角ひらがなと全角カタカナのコードポイント一覧
//  Unicode ( UTF-16 ) の場合
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LText : string;
  LCode : Integer;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.BeginUpdate;

  for LCode := $3041 to $30F6 do begin
    LText := '$' + IntToHex(LCode, 4) + '   ' + Char(LCode);
    Memo1.Lines.Add(LText);
  end;

  Memo1.Lines.EndUpdate;
end;

//=============================================================================
//  全角ひらがなと全角カタカナのコードポイント一覧
//  Shift_JIS の場合
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LCode    : Integer;
  LAnsiStr : AnsiString;
  LText    : string;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.BeginUpdate;

  SetLength(LAnsiStr, 2);

  for LCode := $829F to $8396 do begin
    LAnsiStr[1] := AnsiChar((LCode and $FF00) shr 8);
    LAnsiStr[2] := AnsiChar(LCode and $FF);

    LText := '$' + IntToHex(LCode, 4) + '   ' + string(LAnsiStr);
    Memo1.Lines.Add(LText);
  end;

  Memo1.Lines.EndUpdate;
end;

//=============================================================================
//  全角ひらがなと全角カタカナのコードポイント一覧
//  コードページが 50221 ( JIS コード ) の場合
//
//  JIS コードだけでは文字にならない ( 文字として表示されない )
//  JIS コードの前に $1B2442 を，後ろに $1B2842 を追加する必要がある
//=============================================================================
procedure TForm1.Button3Click(Sender: TObject);
type
  JisString = type AnsiString(50221);
var
  LCode    : Integer;
  LJisStr  : JisString;
  LText    : string;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.BeginUpdate;

  SetLength(LJisStr, 8);
  LJisStr[1] := #$1B;
  LJisStr[2] := #$24;
  LJisStr[3] := #$42;
  LJisStr[6] := #$1B;
  LJisStr[7] := #$28;
  LJisStr[8] := #$42;

  for LCode := $2421 to $2576 do begin
    LJisStr[4] := AnsiChar((LCode and $FF00) shr 8);
    LJisStr[5] := AnsiChar(LCode and $FF);

    LText := '$' + IntToHex(LCode, 4) + '   ' + string(LJisStr);
    Memo1.Lines.Add(LText);
  end;

  Memo1.Lines.EndUpdate;
end;

//=============================================================================
//  全角ひらがなと全角カタカナのコードポイント一覧
//  UTF-8 の場合
//
//  uses に System.WideStrUtils が必要
//=============================================================================
procedure TForm1.Button4Click(Sender: TObject);
var
  LCode    : Integer;
  LUTF8Str : UTF8String;
  LText    : string;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.BeginUpdate;

  SetLength(LUTF8Str, 3);

  for LCode := $E38181 to $E383B6 do begin
    LUTF8Str[1] := AnsiChar((LCode and $FF0000) shr 16);
    LUTF8Str[2] := AnsiChar((LCode and $FF00) shr 8);
    LUTF8Str[3] := Ansichar(LCode and $FF);

    // 末尾バイトが UTF-8 として有効でない場合は次の処理とする
    if not IsUTF8TrailByte(LUTF8Str[3]) then Continue;

    LText := '$' + IntToHex(LCode, 6) + '   ' + string(LUTF8Str);
    Memo1.Lines.Add(LText);
  end;

  Memo1.Lines.EndUpdate;
end;

//=============================================================================
//  全角ひらがなと全角カタカナのコードポイント一覧
//  Unicode ( UTF-16 ) の場合
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LText : string;
  LCode : Integer;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.BeginUpdate;

  for LCode := Ord('ぁ') to Ord('ヶ') do begin
    LText := '$' + IntToHex(LCode, 4) + '   ' + Char(LCode);
    Memo1.Lines.Add(LText);
  end;

  Memo1.Lines.EndUpdate;
end;

//=============================================================================
//  全角ひらがなと全角カタカナのコードポイント一覧
//  Shift_JIS の場合
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LCode      : Integer;
  LAnsiStr   : AnsiString;
  LFirstCode : Integer;
  LLastCode  : Integer;
  LText      : string;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.BeginUpdate;


  LAnsiStr := 'ぁ';
  LFirstCode := (Ord(LAnsiStr[1]) shl 8) + Ord(LAnsiStr[2]);
  LAnsiStr := 'ヶ';
  LLastCode := (Ord(LAnsiStr[1]) shl 8) + Ord(LAnsiStr[2]);

  for LCode := LFirstCode to LLastCode do begin
    LAnsiStr := AnsiChar(Byte(Swap(LCode))) + AnsiChar(Byte(LCode));
    LText := '$' + IntToHex(LCode, 4) + '   ' + string(LAnsiStr);
    Memo1.Lines.Add(LText);
  end;

  Memo1.Lines.EndUpdate;
end;

//=============================================================================
//  全角カタカナの小文字を大文字に変換
//  Unicode ( UTF-16 ) の場合
//  全角のカナの小文字には，半角カナの小文字の他に ヮ，ヵ，ヶ がある
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
const
  LCodes : array [0..11] of Cardinal
= ($30A1, $30A3, $30A5, $30A7, $30A9, $30C3, $30E3, $30E5, $30E7, $30EE, $30F5, $30F6);
var
  LText  : string;
  LCode  : Integer;
  LChar  : Char;
  LIndex : Integer;
begin
  Memo1.Lines.Clear;

  LText := 'ア ァィゥェォャュョッヮヵヶ 日本語';
  Memo1.Lines.Add(LText);

  for LIndex := 0 to High(LCodes) do begin
    if LIndex = (High(LCodes) - 1) then begin
      LCode := $30AB;
    end else
    if (LIndex = High(LCodes)) then begin
      LCode := $30B1;
    end else begin
      LCode := LCodes[LIndex] + 1;
    end;
    LChar := Char(LCodes[LIndex]);
    Ltext := StringReplace(Ltext, LChar, Char(LCode), [rfReplaceAll]);
  end;
  Memo1.Lines.Add(LText);
end;

//=============================================================================
//  全角カタカナの大文字を小文字に変換
//  Unicode ( UTF-16 ) の場合
//   全角のカナの小文字には，半角カナの小文字の他に ヮ，ヵ，ヶ がある
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
const
  LCodes : array [0..11] of Cardinal
= ($30A2, $30A4, $30A6, $30A8, $30AA, $30C4, $30E4, $30E6, $30E8, $30EF, $30AB, $30B1);
var
  LText  : string;
  LCode  : Integer;
  LChar  : Char;
  LIndex : Integer;
begin
  Memo1.Lines.Clear;

  LText := 'ァ アイウエオヤユヨツワカケ 日本語';
  Memo1.Lines.Add(LText);

  for LIndex := 0 to High(LCodes) do begin
    if LIndex = (High(LCodes) - 1) then begin
      LCode := $30F5;
    end else
    if (LIndex = High(LCodes)) then begin
      LCode := $30F6;
    end else begin
      LCode := LCodes[LIndex] - 1;
    end;
    LChar := Char(LCodes[LIndex]);
    Ltext := StringReplace(Ltext, LChar, Char(LCode), [rfReplaceAll]);
  end;
  Memo1.Lines.Add(LText);
end;

  // $30A1 は全角カタカナの「ァ」のコードポイントの値
  // $3041 は全角ひらがなの「ぁ」のコードポイントの値
  LIncCode := $30A1 - $3041;

//=============================================================================
//  全角カタカナを全角のひらがなに変換
//  Unicode ( UTF-16 ) の場合
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LIncCode : Integer;
  LText    : string;
  LIndex   : Integer;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.BeginUpdate;

  // $30A1 は全角カタカナの「ァ」のコードポイントの値
  // $3041 は全角ひらがなの「ぁ」のコードポイントの値
  LIncCode := $30A1 - $3041;

  for LIndex := $30A1 to $30F6 do begin
    LText := Char(LIndex) + '　　' + Char(LIndex - LIncCode);
    Memo1.Lines.Add(LText);
  end;

  Memo1.Lines.EndUpdate;
end;

//=============================================================================
//  全角カタカナは全角のひらがなに，ひらがなはカタカナに変換
//  Unicode ( UTF-16 )
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LText    : string;
  LCode    : Integer;
  LIncCode : Integer;
  LIndex   : Integer;
begin
  LText := 'ABC ひらがな カタカナ 日本語';

  Memo1.Lines.Clear;
  Memo1.Lines.Add(LText);

  LIncCode := $30A1 - $3041;

  for LIndex := 1 to Length(LText) do begin
    LCode := Ord(LText[LIndex]);

    if (LCode >= $3041) and (LCode <= $3096) then begin
      LText[LIndex] := Char(LCode + LIncCode);
    end else
    if (LCode >= $30A1) and (LCode <= $30F6) then begin
      LText[LIndex] := Char(LCode -+ LIncCode);
    end;
  end;

  Memo1.Lines.Add(LText);
end;

//=============================================================================
//  記号と半角数字のコードポイント一覧
//  Unicode ( UTF-16 ) の場合
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LText : string;
  LCode : Integer;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.BeginUpdate;

  for LCode := Ord('!') to Ord('9') do begin
    LText := '$' + IntToHex(LCode, 4) + '   ' + Char(LCode);
    Memo1.Lines.Add(LText);
  end;

  Memo1.Lines.EndUpdate;
end;

//=============================================================================
//  記号と半角英字 ( アルファベット ) のコードポイント一覧
//  Unicode ( UTF-16 ) の場合
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LText : string;
  LCode : Integer;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.BeginUpdate;

  for LCode := Ord(':') to Ord('~') + 1 do begin
    LText := '$' + IntToHex(LCode, 4) + '   ' + Char(LCode);
    Memo1.Lines.Add(LText);
  end;

  Memo1.Lines.EndUpdate;
end;

//=============================================================================
//  記号と全角数字のコードポイント一覧
//  Unicode ( UTF-16 ) の場合
//=============================================================================
procedure TForm1.Button3Click(Sender: TObject);
var
  LText : string;
  LCode : Integer;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.BeginUpdate;

  for LCode := Ord('！') to Ord('９') do begin
    LText := '$' + IntToHex(LCode, 4) + '   ' + Char(LCode);
    Memo1.Lines.Add(LText);
  end;

  Memo1.Lines.EndUpdate;
end;

//=============================================================================
//  記号と全角英字 ( アルファベット ) のコードポイント一覧
//  Unicode ( UTF-16 ) の場合
//=============================================================================
procedure TForm1.Button4Click(Sender: TObject);
var
  LText : string;
  LCode : Integer;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.BeginUpdate;

  for LCode := Ord('：') to Ord('～') + 1 do begin
    LText := '$' + IntToHex(LCode, 4) + '   ' + Char(LCode);
    Memo1.Lines.Add(LText);
  end;

  Memo1.Lines.EndUpdate;
end;

//=============================================================================
//  半角英字を全角の英字に変換
//  Unicode ( UTF-16 ) の場合
//
//  $002C は半角の .
//  $002E は半角の ,
//  . と , は数字小数点，桁区切りにも使用されるている
//  記号，英数字共に変換する場合は含めてもよいだろう
//
//  $0020 は半角の空白．$3000 は全角の空白
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LIncCode : Integer;
  LText    : string;
  LCode    : Integer;
  LIndex   : Integer;
begin
  Memo1.Lines.Clear;
  LIncCode := $FF01 - $0021;

  LText := 'Delphi XE5';
  Memo1.Lines.Add(LText);

  for LIndex := 1 to Length(LText) do begin
     LCode := Ord(LText[LIndex]);
    if (LCode = $002C) or (LCode = $002E)
      or ((LCode >= $0041) and (LCode <= $007A)) then begin
      LText[LIndex] := Char(LCode + LIncCode);
    end;
    if LCode = $0020 then begin
      LText[LIndex] := Char($3000);
    end;
  end;
  Memo1.Lines.Add(LText);
end;

//=============================================================================
//  全角の数字を半角の数字に変換 ( 記号類も含めて )
//  Unicode ( UTF-16 )
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LIncCode : Integer;
  LText    : string;
  LCode    : Integer;
  LIndex   : Integer;
begin
  Memo1.Lines.Clear;
  LIncCode := $FF01 - $0021;

  LText := 'ＡＢＣ １２３，４５６．００1 アイウガパ';
  Memo1.Lines.Add(LText);

  for LIndex := 1 to Length(LText) do begin
     LCode := Ord(LText[LIndex]);

    if (LCode >= $FF01) and (LCode <= $FF1F) then begin
      LText[LIndex] := Char(LCode - LIncCode);
    end;
  end;

  Memo1.Lines.Add(LText);
end;

//=============================================================================
//  文字列の半角カタカナだけを全角カタカナに変換
//  Unicode ( UTF-16 ) の場合
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LSrcText : string;
  LDstText : string;
  LSrcStr  : string;
  LDstStr  : string;
  LCode    : Integer;
  LCode2   : Integer;
  LIndex   : Integer;
begin
  Memo1.Lines.Clear;

  LSrcText := 'ABC ｱｲｳ｢ｶﾞｷﾞｸﾞ｣ﾊﾟﾋﾟﾌﾟ 123 日本語';
  Memo1.Lines.Add('$' + IntToHex(Ord(LSrcText[Length(LSrcText)]), 4));
  Memo1.Lines.Add(LSrcText);

  LDstText := '';
  LIndex := 1;

  while LIndex <= Length(LSrcText) do begin
    LCode　　:= Ord(LSrcText[LIndex]);;
    LSrcStr := LSrcText[LIndex];

    if (LCode >= $FF61) and (LCode <= $FF9D) then begin
      if (LIndex + 1) <= Length(LSrcText) then begin
        LCode2 := Ord(LSrcText[LIndex + 1]);
        if ((LCode2 = $FF9E) or (LCode2 = $FF9F)) then begin
          LSrcStr := LSrcStr + Char(LCode2);
        end;
      end;
      SetLength(LDstStr, 1);
      LCMapString(LOCALE_SYSTEM_DEFAULT, LCMAP_FULLWIDTH,
                  PChar(LSrcStr), Length(LSrcStr), PChar(LDstStr), Length(LDstStr));
    end else

    // $FF9E は半角の濁点記号．$FF9F は半角の半濁点記号
    if LCode = $FF9E then begin
      LDstStr := Char($309B);
    end else
    if LCode = $FF9F then begin
      LDstStr := Char($309C);

    // 半角の空白を全角の空白に ( 必要なければ下の 3 行を削除 )
    end else
    if LCode = $0020 then begin
      LDstStr := Char($3000);
    end else begin
      LDstStr := LSrcStr;
    end;

    LDstText := LDstText + LDstStr;
    Inc(LIndex);
    if Length(LSrcStr) = 2 then Inc(LIndex);
  end;

  Memo1.Lines.Add(LDstText);
end;

//=============================================================================
//  文字列の半角カタカだけナを全角カタカナに変換
//  Shift_JIS の場合 ( Ansi 版 Delphi 用のコード )
//  Memo1 (TMemo ) の Font.Charset はデフォルトの SHIFTJIS_CHARSET
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LSrcText : string;
  LDstText : string;
  LSrcStr  :string;
  LDstStr  :string;
  LCode    : Integer;
  LCode2   : Integer;
  LIndex   : Integer;
begin
  Memo1.Lines.Clear;

  LSrcText := 'ABC ｱｲｳ｢ｶﾞｷﾞｸﾞ｣ﾊﾟﾋﾟﾌﾟ 123 日本語';
  Memo1.Lines.Add(LSrcText);

  LDstText := '';
  LIndex := 1;

  while LIndex <= Length(LSrcText) do begin
    LCode   := Ord(LSrcText[LIndex]);;
    LSrcStr := LSrcText[LIndex];

      if Char(LCode) in LeadBytes then begin
        if (LIndex + 1) <= Length(LSrcText) then begin
          LSrcStr := LSrcStr + LSrcText[LIndex + 1];
          LDstStr := LSrcStr;
        end;
    end else
    if (LCode >= $A1) and (LCode <= $DF) then begin
      if (LIndex + 1) <= Length(LSrcText) then begin
        LCode2 := Ord(LSrcText[LIndex + 1]);
        if (LCode <= $DD) and ((LCode2 = $DE) or (LCode2 = $DF)) then begin
          LSrcStr := LSrcStr + Char(LCode2);
        end;
      end;
      SetLength(LDstStr, 2);
      LCMapString(LOCALE_SYSTEM_DEFAULT, LCMAP_FULLWIDTH,
                  PChar(LSrcStr), Length(LSrcStr), PChar(LDstStr), Length(LDstStr));

    // 半角の空白を全角の空白に ( 必要なければ下の 3 行を削除 )
    end else
    if LCode = $20 then begin
      LDstStr := Char($81) + Char($40);
    end else begin
      LDstStr := LSrcStr;
    end;

    LDstText := LDstText + LDstStr;
    Inc(LIndex);
    if Length(LSrcStr) = 2 then Inc(LIndex);
  end;

  Memo1.Lines.Add(LDstText);
end;