13、Object Pascal 中的数组与记录详解

Object Pascal 中的数组与记录详解

1. 记录数据复制与引用参数

在处理记录类型的数据时，每次调用函数都会涉及记录数据的完整复制。为了避免复制并可能修改原始记录，需要显式使用引用参数。以下是一个示例：

function MyDateToString(MyDate: TMyDate): string;
begin
  Result := MyDate.Year.ToString + '.' +
    MyDate.Month.ToString + '.' +
    MyDate.Day.ToString;
end;

procedure IncreaseYear (var MyDate: TMyDate);
begin
  Inc (MyDate.Year);
end;

var
  ADay: TMyDate;
begin
  ADay.Year := 2016;
  ADay.Month := 3;
  ADay.Day := 18;
  IncreaseYear (ADay);
  Show (MyDateToString (ADay));
end;

在上述代码中， IncreaseYear 过程使用引用参数 var MyDate: TMyDate ，避免了数据复制，并修改了原始记录的 Year 字段。最终输出为 2017.3.18 ，比输入晚了一年。

2. 使用记录数组

数组是多次重复的数据结构，而记录是具有不同元素的