Question

DELPHI中自定义记录类型的数组怎么用做过程的参数和返回值?

我先定义了一个记录类型..然后定义了一个以这个记录做数组的数组类型.
现在我要用这个数组类型来做过程的参数..要能在过程中直接改变传进来的记录数组.
还要在过程中能直接显示在FORM上的LISTBOX里面.应该怎么写呢..
好像挺麻烦的..
过程是需要声明的..但是我一声明就说找不到自定义类型..
如果用FUNCTION的话就会操作不了LISTBOX..郁闷

Answer 1

由于pascal的数组长度都归入类型范畴，一个100个元素和一个200个元素的数组，即使其元素类型相同（如integer），两个数组的类型也不同，所以，为了讲究一点儿通用性，最好定义一个该记录类型的指针类型，参数传数组首元素的指针和元素个数。如下例子：
PMyRecord=^TMyRecord;
TMyRecord=record
......
end;
var
arData : array[ 1..100 ] of TMyRecord;
......
procedure DoSomething( prFirst: PMyRecord; nElementCount : Integer );
......
调用方法：DoSomething( @arData[1], Length( arData ) );

追问

过程要提前声明一下..
可是一声明就说数组类型未定义..写成你说的指针也不行

追答

类型的声明需要在过程之前，如果你的过程定义在TForm1中，那么类型需要定义在type和TForm1=class之间，如果你的delphi版本是2009之后，也可以在TForm1的定义体中加入类型的定义，如下：
type
PMyRecord=^TMyRecord;
TMyRecord=record
......
end;