半角・全角混在文字列を全部全角に変換するには？

解決

---

私の解決方法としては
function Hankaku2Zenkaku(value:string):string;
              ・
              ・
   '0'..'9':'０'..'９';//思いっきり手抜きですが・・・
              ・
              ・
  result;
end;

という程度しか思いつかないのですが、１００キャラ分くらいテーブル用意しなければならない（長くなる分はいまさらしょうがないけど）。書く手間とデバック考えれば「どこかにないかなぁ」などと不精を考えておりますが（おいおいそんなことを公言すんなよ(^_^メ)）、それよりも、もうちょっとスマートなプログラムはできないものかというのが、質問のメインです。よろしくお願いします。

編集    削除

---

Delphian World
http://home1.infonia.ne.jp/~delphian/delphi/
で、半角 全角 をキーワードにANDで検索すると１件みつかります。

編集    削除

---

ほんとだ。あそこでも、「半角」か「全角」で検索かけたはずなんでしたが・・・
やっぱりありましたね。ありがとうございました。m(__)m

編集    削除

---

いや〜、あのあと本屋さんで、今年出たばっかりの" Delphi6プログラミングテクニック裏技180選＋新機能20選"（ＡＩ出版）を見つけたのでみてみると、ＡＰＩを利用した”ＬＣＭａｐＳｔｒｉｎｇ”というのがあるではありませんか。２年前のＤｅｌ５の”裏技170選”にはありませんでしたので、今回の＋１０で追加されたものの中にありました。Ｄｅｌ５でも、ちゃんと動作しましたので報告させていただきます。

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。