バイト配列の途中に代入するには (ID：9138)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ひとスジ ： 「動的配列って ホントはポインタだってこと知っとった？」
ふたスジ ： 「知らんかった〜」
ひとスジ ： 「だからこんなことできるの知っとった？」
ふたスジ ： 「知らんかった〜」

type
  TByteArray = array of Byte;

function PFNowTo6Byte(var C: TByteArray): TByteArray;
var
  UsStr : String;
  UsInt : Integer;
begin
  UsStr := FormatDateTime('yymmddhhnnss', Now);
  Val('$'+ Copy(UsStr, 1,2), C[1], UsInt);
  Val('$'+ Copy(UsStr, 3,2), C[2], UsInt);
  Val('$'+ Copy(UsStr, 5,2), C[3], UsInt);
  Val('$'+ Copy(UsStr, 7,2), C[4], UsInt);
  Val('$'+ Copy(UsStr, 9,2), C[5], UsInt);
  Val('$'+ Copy(UsStr,11,2), C[6], UsInt);
  result := TByteArray(@C[1]);             // Cの一部分をBにする
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  B: TByteArray;
  C: TByteArray;
begin
  SetLength(B, 6);
  SetLength(C, 8);
  B := PFNowTo6Byte(C);
  C[0] := $FF;
  C[7] := $FF;
  Label1.Caption := Format('■%.2x-%.2x-%.2x-%.2x-%.2x-%.2x-%.2x-%.2x■',
                           [C[0],C[1],C[2],C[3],C[4],C[5],C[6],C[7]]);
  Label2.Caption := Format('■FF-%.2x-%.2x-%.2x-%.2x-%.2x-%.2x-FF■',
                           [B[0],B[1],B[2],B[3],B[4],B[5]]);
end;

ふたスジ ： 「ンなら、オマエのお菓子 オレが食べちゃったの知っとった？」
ひとスジ ： 「知らんかった〜」

←解決時は質問者本人がここをチェックしてください。

戻る