漢字１文字の文字コードを取得するには？

解決

桜坂 2009-03-08 04:08:28 No: 33593

いつもご指導頂きありがとうございます。
タイトルからすると、馬鹿げた質問と笑われるかも知れませんが検索しても判らず恥を忍んで質問させて頂きます。
例えば、「今」という漢字の文字コードは、ＪＩＳ＝３Ａ２３、シフトＪＩＳ＝８ＤＡ１、区点＝０２６０３、ユニコード＝４ＥＣＡです。
ここで、入力した漢字の各種文字コードを表示するプログラムを作りたいと考えましたが、どの様にすればよいのかも解りません。
ＥＤＩＴ１に漢字１文字を入力します。
ボタン１を押すとＥＤＩＴ２にＪＩＳコードが表示されることを想定しています。
同様にボタン２を押すとＥＤＩＴ２にシフトＪＩＳコードが表示され、ボタン３を押すと区点コードが、ボタン４を押すとユニコードが表示されることを想像しています。
ご指導よろしくお願いします。

桜坂 2009-03-08 05:15:46 No: 33594

すみません。あわてて環境を書くのを忘れてしまいました。
開発環境は、Ｄｅｌｐｈｉ７のエンタープライズです。
ＰＣは、Ｗｉｎｄｏｗｓ２０００です。
よろしくお願いします。

D 2009-03-08 17:51:41 No: 33595

シフトJISとユニコードだけ（でもシフトJISは自信なし）

procedure TForm1.Button2Click(Sender: TObject);
var
  S: String;
begin
  S := WideString(Edit1.Text)[1];
  if (Length(S) = 2) then begin
    Edit2.Text := Format('%.2x%.2x', [Ord(S[1]), Ord(S[2])]);
  end else begin
    Edit2.Text := Format('%.4x', [Ord(S[1])]);
  end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Edit2.Text := Format('%.4x', [Ord(WideString(Edit1.Text)[1])]);
end;

あとは↓にシフトJIS、JIS、区点の変換関数がありました。
http://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/faq/00286.htm

桜坂 2009-03-08 19:11:24 No: 33596

Ｄさん、ありがとうございます。
私の抱えていた問題が解決しました。
私の目的は、ユニコードが解ると外字作成の時の参考にする漢字のコードが解り、それを探すためのプログラムです。
仕事で、外字を作ることが最近多くなり、苦労しましたので「参考にする漢字コードを表示できればいいのに・・・」と思いましたが、・・・技量不足のため頓挫していました。
本当に助かりました。重ねてお礼申し上げます。ありがとうございます。
今後ともご指導、よろしくお願い申し上げます。