掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
バイト配列の途中に代入するには (ID:9140)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ありがとうございました。 関数をやめて以下のような手続きにしました。 【呼び出し側】 var DAT :array[120] of Byte; UsIdx :Integer; Begin UsIdx := 0; //… UsIdx := UsIdx + 14; Set_Now6Byte( DAT, UsIdx); ──────────────────────────────── // 年月日時分秒６バイト procedure TMain_F.Set_Now6Byte(var ArByt: TByteArray; ArIdx: integer); var UsStr : String; UsInt : Integer; begin UsStr := FormatDateTime('yymmddhhnnss', Now); Val('$'+ Copy(UsStr, 1,2), ArByt[ArIdx + 0], UsInt); Val('$'+ Copy(UsStr, 3,2), ArByt[ArIdx + 1], UsInt); Val('$'+ Copy(UsStr, 5,2), ArByt[ArIdx + 2], UsInt); Val('$'+ Copy(UsStr, 7,2), ArByt[ArIdx + 3], UsInt); Val('$'+ Copy(UsStr, 9,2), ArByt[ArIdx + 4], UsInt); Val('$'+ Copy(UsStr,11,2), ArByt[ArIdx + 5], UsInt); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.