如何动态定义三维数组(15分)

  • 主题发起人 主题发起人 willyu
  • 开始时间 开始时间
W

willyu

Unregistered / Unconfirmed
GUEST, unregistred user!
三维数组的大小要根据程序的参数动态设置,如何在程序中实现?
望指教,谢谢
 
这样:
var a: array of array of array of integer;
 
关键是数组的长度如何动态设定
 
老大,建议组合使用:TList,TStringList
 
var
a: array of array of array of integer;
NewSize1, NewSize2, NewSize3: integer;

SetLength(a, NewSize1);
for i := low(a) to high(a) do begin
SetLangth(a, NewSize2);
for j := low(a) to high(a) do
SetLength(a, NewSize3);
end;
 
SetLength(a, 10, 20, 30);
 
多人接受答案了。
 
后退
顶部