ファイルから配列データを動的配列への一括読み込み (ID:151228)

名前

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

本文

あ
  TA = array[0..0] of WORD;
  PA = ^TA;

TArray3 = class
  private
    A: PA;
    SX: DWORD;
    SY: DWORD;
    SZ: DWORD;
    function GetItems(X,Y,Z: DWORD): WORD;
    procedure SetItems(X,Y,Z: DWORD; Value: WORD);
  public
    constructor Create(X,Y,Z: DWORD); overload;
    destructor Destroy; override;
    property Items[X,Y,Z: DWORD]: WORD read GetItems write SetItems; default;
  end;

function TArray3.GetItems(X,Y,Z: DWORD): WORD;
begin
    RESULT := A[(X * SY * SZ) + (Y * SZ) + Z];
end;

procedure TArray3.SetItems(X,Y,Z: DWORD; Value: WORD);
begin
    A[(X * SY * SZ) + (Y * SZ) + Z] := VALUE;
end;

constructor TArray3.Create(X,Y,Z: DWORD);
begin
    inherited Create;
    SX := X;
    SY := Y;
    SZ := Z;
    GetMem(A,X*Y*Z*SizeOf(WORD));
end;

destructor TArray3.Destroy;
begin
    FreeMem(A);
    inherited;
end;

var
    I,J,K: Integer;
    C: WORD;
begin
    X := 3;
    Y := 3;
    Z := 3;

XXX := TArray3.Create(3,3,3);

C := 0;
    for I:= 0 to 2 do
    begin
      for J:= 0 to 2 do
      begin
        for K:= 0 to 2 do
        begin
          XXX[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 := XXX[I,J,K];
          Memo1.Lines.Add(IntToStr(C));
        end;
      end;
    end;

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

戻る