易截截图软件、单文件、免安装、纯绿色、仅160KB

delphi动态数组指针问题

就一个button事件
procedure TForm1.btn7Click(Sender: TObject);
Type
  TMyArr = array of array of array of Integer; {定义一个三维动态数组类型}
  Pint = ^TMyArr;
var
  PArr: Pint; {动态数组指针变量}
  i,j,k,ic,jc,kc: Integer;
begin
  Memo1.Lines.Clear;
  {用作维数的变量}
  ic := 2;
  jc := 3;
  kc := 4;
  {分配内存; 按说动态数组还需要 8 个管理字节, 我不知道 Delphi 是怎么协调的}
  GetMem(PArr, ic * jc * kc * SizeOf(Integer));
  {设置数组}
  SetLength(PArr^, ic,jc,kc);
  {赋值}
  for i := 0 to ic - 1 do
  for j := 0 to jc - 1 do
  for k := 0 to kc - 1 do
  PArr^[i][j][k] := Random(100);
  {取值}
  Memo1.Clear;
  for i := 0 to ic - 1 do
  for j := 0 to jc - 1 do
  for k := 0 to kc - 1 do
  Memo1.Lines.Add(Format('Arr[%d][%d][%d] = %d', [i, j, k, PArr^[i][j][k]]));
  //Memo1.Lines.Add(Format('Arr[%d][%d][%d] = %d', [i, j, k, TMyArr(PArr)[i][j][k]]));
  {按理说这种访问方法也对,可是这中方法在编译的时候能通的过去,在运行的就报错了}
  {自己分配的内存要负责释放}
  FreeMem(PArr);
end;


到setlength那个地方就出错,大家看看是怎么回事。。。
动态数组你执行GetMem做什么
SetLength(PArr^, ic,jc,kc);不就行了


相关问答:

Delphi怎么取返回内容中的指定部分.

返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......

这个SQL语句有什么问题? - Delphi / 非技术区

select * from shuju.DB where 开盘价-收盘价<=0.02
开盘价 与收盘价 是数据库里的字段
select * from aTableName where ((开盘价-收盘价) <=0.02 )

开盘价比收盘价低两分以下的情况

Mark!!!!!!

se ......

付费求delphi拼音编程 - Delphi / 非技术区

具体要求与报酬QQ729851670
771234717

“拼音编程”是什么意思

引用
“拼音编程”是什么意思
1.给一个字可以显示拼音,多音字的话能显示对应的多个拼音
2.对包含多音字的词语智能识别给出拼音。
3.对一段 ......

Delphi的语法问题 - Delphi / 语言基础/算法/系统设计

例子程序见附件,用Delphi 7进行编译
问题代码为 
Delphi(Pascal) code:
if Node.ChildNodes <> nil then
begin
for i := 0 to Node.ChildNodes.Count - 1 do
begin
cNode := N ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号