掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
漢字１文字の文字コードを取得するには？ (ID：33595)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
シフト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
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.