掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ファイルから配列データを動的配列への一括読み込み (ID:151226)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
静的配列 だとそうだけど >実際には、ファイル内に配列サイズも格納されていて、ファイル毎に配列サイズは異なります。 だから 静的配列 は無理 type TA = array[0..0] of WORD; PA = ^TA; var X,Y,Z: Integer; A: PA; function AGET(X1,Y1,Z1: Integer): WORD; begin RESULT := A[(X1*Y*Z) + (Y1 *Z) + Z1]; end; procedure ASET(X1,Y1,Z1: Integer; VALUE: WORD); begin A[(X1*Y*Z) + (Y1 *Z) + Z1] := VALUE; end; var I,J,K: Integer; C: WORD; begin X := 3; Y := 3; Z := 3; GetMem(A,X*Y*Z*SizeOf(WORD)); C := 0; for I:= 0 to 2 do begin for J:= 0 to 2 do begin for K:= 0 to 2 do begin ASET(I,J,K,C); C := C + 1; end; end; end; for I:= 0 to 2 do begin for J:= 0 to 2 do begin for K:= 0 to 2 do begin C := AGET(I,J,K); Memo1.Lines.Add(IntToStr(C)); end; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.