记录类型以及开放数组参数

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]);