type Date = record Year: Integer; Month: Byte; Day: Byte; end; var BirthDay: Date; begin BirthDay.Year := 1997; BirthDay.Month := 2; BirthDay.Day := 14;
与C语言不同,Pascal 函数及过程的参数个数是预定的。如果参数个数预先没有确定,则需要通过开
放数组来实现参数传递。一个开放数组参数就是一个固定类型开放数组的元素。 也就是说,参数类型
已定义,但是数组中的元素个数是未知数。见下例:
function Sum (const A: array of Integer): Integer; var I: Integer; begin Result := 0; for I := Low(A) to High(A) do Result := Result + A[I]; end;上面通过High(A)获取数组的大小,注意其中函数返回值 Result的应用, Result用来存储临时值。
你可通过一个整数表达式组成的数组来调用该函数:
X := Sum ([10, Y, 27*I]);