掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
16進へするには？？ (ID：27159)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ごめんなさい。もっとシンプルにできますね... procedure Hex2(C: Char); function _Convert(Value: Byte): Char; var n: Byte; begin if (Value >= 10) then n:= 55 else n:= 48; Result:= Chr(n + Value); end; var S: String; begin S:= _Convert(Byte(C) shr 4) + _Convert(Byte(C) and $0F); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.