掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
全角カナ(全角ひらがな) ->半角カナ に変換 (ID:25877)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こちらも簡単でいいと思いますよ。 function MapStringW(const Source: WideString; dwMapFlags: Longword): WideString; var Len: Integer; begin Result := ''; Len := LCMapStringW(LOCALE_USER_DEFAULT, dwMapFlags, PWideChar(Source), -1, nil, 0); SetLength(Result, Len-1); LCMapStringW(LOCALE_USER_DEFAULT, dwMapFlags, PWideChar(Source), Length(Source)+1, PWideChar(Result), Len); //LOCALE_USER_DEFAULTの代わりに //GetUserDefaultLCIDを指定してもいいみたい end; function KataToHira(const Source: WideString): WideString; begin Result := MapStringW(Source, LCMAP_HIRAGANA); end; function HiraToKata(const Source: WideString): WideString; begin Result := MapStringW(Source, LCMAP_KATAKANA); end; function ZenkakuToHankaku(const Source: WideString): WideString; begin Result := MapStringW(Source, LCMAP_HALFWIDTH); end; function HankakuToZenkaku(const Source: WideString): WideString; begin Result := MapStringW(Source, LCMAP_FULLWIDTH); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.