掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
動的配列の件 (ID:151257)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
本件、宙ぶらりんとなっていました。すみません。 趣旨が少し変わってしまうかも知れませんが、 fs : TFileStream; ptr2 : PWord; ptr4 : PSingle; i, j, k, x, y, z : Word; cnt, size : LongWord; begin x := マトリックスのXサイズ; y := マトリックスのYサイズ; z := マトリックスのZサイズ; if データ型=Word then begin size := Sizeof(Word)*x*y*z: GetMem(ptr2,size); cnt := fs.Read(ptr2^,size); for k := 0 to z -1 do for j := 0 to y -1 do for i := 0 to x -1 do begin mtx[i,j,k].data2 := ptr2^; inc(ptr2); end; end else if データ型=Single then begin size := Sizeof(Single)*x*y*z: GetMem(ptr4,size); cnt := fs.Read(ptr4^,size); for k := 0 to z -1 do for j := 0 to y -1 do for i := 0 to x -1 do begin mtx[i,j,k].data4 := ptr4^; inc(ptr4); end; end; end; で、読み出せています。(別件でこの項を示唆頂けた内容を少し含んでいます) この項、締めさせて頂きます。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.