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

名前

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

本文

おせわになっております。
年月日時分秒をパック10進数形式のバイト配列で返す関数の戻り値を、
呼び出し側で、バイト配列の途中に代入するようなことはできますでしょうか。
また、関数の書き方についても、怪しい点があれば教えてください。

【呼び出し側】
var
  B:array[0..7] of byte;
begin

B[0]    := $FF;
  //↓こんな感じの代入がやりたいのですが…エラーになります。
  B[1..6] := PFNowTo6Byte(); 
  B[7]    := $FF;

showmessage(
       '■' + IntToHex(result[0],2)
      + '-' + IntToHex(result[1],2)
      + '-' + IntToHex(result[2],2)
      + '-' + IntToHex(result[3],2)
      + '-' + IntToHex(result[4],2)
      + '-' + IntToHex(result[5],2)
      + '-' + IntToHex(result[6],2)
      + '-' + IntToHex(result[7],2) + '■'
  );

// 2004/05/25 12:30:58 の場合
//「■FF-04-05-25-12-30-58-FF■」と表示させたいのです

────────────────────────
//※TByteArray: array of Byte;
function TForm1.PFNowTo6Byte: TByteArray;
var
  UsStr :String;
  UsInt :Integer;
begin
  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;
────────────────────────

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

戻る