传入动态数组

原创 2013年12月05日 19:03:36
TMyRec = record
    sName: string[15];
    Sex: integer;
  end;

  pMyRec = ^TMyRec;
  arr1 = array of pMyRec;

var
  a1: arr1;
function method(T1: arr1): arr1;
begin
  Result := T1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  SetLength(a1, 5);
  for i := Low(a1) to High(a1) do
  begin
    New(a1[i]);
    a1[i].sName := IntToStr(i);
    ShowMessage(method(a1)[i].sName);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
  for i := High(a1) downto Low(a1) do
  begin
    ShowMessage(method(a1)[i].sName);
    Dispose(a1[i]);
  end;
end;

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

动态数组末班类源代码

动态数组分配内存

#include"stdlib.h"#include"stdio.h"main(){int i,size;int *pa;pa=(int *)malloc(sizeof(int)*size);for(...

动态数组运用

  • 2014-04-10 22:07
  • 194KB
  • 下载

动态数组

1.变长一维数组           这里说的变长数组是指在编译时不能确定数组长度,程序在运行时需要动态分配内存空间的数组。实现变长数组最简单的是变长一维数组,你可以这样做:    ...

ALLOCATE语句分配FORTRAN动态数组方法

数组的动态分配 a)    可分配数组 数组可以是静态的也可以是动态的。如果数组是静态的,则在编译时就被分配了固定的储存空间,并且直到程序退出时才被释放。程序运行时静态数组的大小不能改变。...

静态和动态数组

  • 2012-03-29 21:26
  • 776KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)