掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ふりがなを取得するには (ID：5792)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんなんありましたけど・・↓(やってることはサッパリわかりませぬ^^;) function TForm1.StrConv(Value: String; MapFlag: Integer): String; // LCMAP_FULLWIDTH：半角 → 全角 // LCMAP_HALFWIDTH：全角 → 半角 // LCMAP_HIRAGANA ：全角カタカナ → ひらがな // LCMAP_KATAKANA ：ひらがな → 全角カタカナ // LCMAP_LOWERCASE：大文字 → 小文字 // LCMAP_UPPERCASE：小文字 → 大文字 var DestStr: PChar; DestSize: Integer; begin Result := Value; DestSize := LCMapString(LOCALE_SYSTEM_DEFAULT, MapFlag, PChar(Value), Length(Value), Nil, 0); if DestSize = 0 then Exit; DestStr := AllocMem(DestSize + 1); Try DestSize := LCMapString(LOCALE_SYSTEM_DEFAULT, MapFlag, PChar(Value), Length(Value), DestStr, DestSize); if DestSize = 0 then Exit; Result := StrPas(DestStr); Finally FreeMem(DestStr); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.