全角文字か半角文字かを調べる

指定した文字が全角文字(日本語)か半角文字(アルファベットやカタカナ)かを調べるには ByteType関数を使用します。この関数にはふたつの引数を渡します。最初の引数が調べる文字列(String)、次に調べる位置です。戻り値は TMbcsByteType型で mbSingleByte以外は全角です。

■ 全角半角を調べる例 
begin
  strData     :=    'Delphiデルファイ';
  for    ix   :=     1   to   length(strData)   do
  begin
    case   ByteType(strData,ix)  of
      { 半角 }
       mbSingleByte  :  ShowMessage(IntToStr(ix) + '半角');
      { 全角の１バイト目 }
       mbLeadByte    :  ShowMessage(IntToStr(ix) + '全角１');
      { 全角の２バイト目 }
       mbTrailByte   :  ShowMessage(IntToStr(ix) + '全角２');
    else
                        ShowMessage(IntToStr(ix) + '？');
    end; { case }
  end; { for }
end;