掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ＳｔｒｉｎｇをHEX表示したいnoですが (ID:18439)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
var Buf: PChar = #$00#$21#$93#$03#$b1#$00; procedure TForm1.ButtonXClick(Sender: TObject); function func(Buf: PChar; Size: Integer): string; var i: Integer; begin result := ''; for i:=0 to Pred(Size) do begin result := result + IntToHex(Byte(Buf[i]), 2); end; end; begin MemoX.Lines.Add(func(Buf, 5)); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.