掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
バイト配列の途中に代入するには (ID：9136)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
おっと > バイト配列の途中に代入するには でしたね。地道に代入すると type TByteArray = array of Byte; function PFNowTo6Byte: TByteArray; var UsStr :String; UsInt :Integer; begin SetLength(result,6); UsStr := FormatDateTime('yymmddhhnnss',Now); Val(Copy(UsStr, 1,2), result[0], UsInt); Val(Copy(UsStr, 3,2), result[1], UsInt); Val(Copy(UsStr, 5,2), result[2], UsInt); Val(Copy(UsStr, 7,2), result[3], UsInt); Val(Copy(UsStr, 9,2), result[4], UsInt); Val(Copy(UsStr,11,2), result[5], UsInt); end; procedure TForm1.Button1Click(Sender: TObject); var B:TByteArray; C:array [0..7] of Byte; i:integer; begin B := PFNowTo6Byte; C[0] := $FF; for i := 1 to 6 do C[i] := B[i-1]; C[7] := $FF; Label1.Caption := Format('■%.2x-%.2d-%.2d-%.2d-%.2d-%.2d-%.2d-%.2x■', [C[0],C[1],C[2],C[3],C[4],C[5],C[6],C[7]]); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.