使用GetMem分配多维数组

本文介绍了使用GetMem分配多维数组的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

如何使用GetMem和 PointerMath ？创建多维（2D，3D，4D） p>

How can I to create multidimensional(2D, 3D, 4D) arrays using GetMem and PointerMath?

推荐答案

没有额外的变量，这是更好的。

This is better without an extra variable.

var
  I, J: Integer;
  A: PInteger;
begin
  GetMem(A, 10 * 10 * SizeOf(Integer));

  for I := 0 to 10 - 1 do
  for J := 0 to 10 - 1 do
  PInteger(@A[I * 10])[J] := Random(10);


  for I := 0 to 10 - 1 do
  for J := 0 to 10 - 1 do
  WriteLn(I,',',J,':',PInteger(@A[I * 10])[J]);

这篇关于使用GetMem分配多维数组的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！