フリーソフト

« [Delphi] ListBoxをスクロールさせる | トップページ | [Delphi] 半角と全角を変換する »

[Delphi] 文字が全角か半角か調べる

//'ああああ'の3バイト目を調べる例
case ByteType('ああああ',3) of
 mbSingleByte: Lable1.Caption:='半角です';
 mbLeadByte: Lable1.Caption:='全角の1バイト目です';
 mbTrailByte: Label1.Caption:='全角の2バイト目です';
end;

全角1バイト目の文字集合であるLeadBytesを利用する方法もあります。

Str:='aああ';
if (Str[3] in LeadBytes) then Label1.Caption:='全角の1バイト目です';

« [Delphi] ListBoxをスクロールさせる | トップページ | [Delphi] 半角と全角を変換する »

Delphi」カテゴリの記事

文字列の処理」カテゴリの記事

コメント

この記事へのコメントは終了しました。