掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
16進へするには？？ (ID:27166)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じかな？ program Project1; {$APPTYPE CONSOLE} 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; begin Write(_Convert(Byte(C) shr 4) + _Convert(Byte(C) and $0F)); end; var F: TextFile; C: Char; I: Integer; begin AssignFile(F, 'Test.txt'); Reset(F); try I:= 0; while not Eof(F) do begin Read(F, C); Hex2(C); Inc(I); if (I < 16) then Write(#32) else begin Writeln(''); I:= 0; end; end; finally CloseFile(F); end; Readln; end.
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.