Методы в записях

Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Версия для печати больше не поддерживается и может содержать ошибки обработки. Обновите закладки браузера и используйте вместо этого функцию печати браузера по умолчанию.

В записях также можно определять методы и конструкторы. В отличие от объектов классов переменные записей можно не инициализировать (поля инициализируются по умолчанию нулевыми значениями). Инициализацию полей записей можно также проводить либо специальным методом (в данном случае Init), либо вызовом конструктора. Несмотря на то, что записи являются, в отличие от класса, размерным типом, синтаксис вызова конструктора - такой-же, как и для классов.

type
  Point = record
    x,y: integer;
    procedure Init(x,y: integer);
    begin
      Self.x := x;
      Self.y := y;
    end;
    constructor (x,y: integer);
    begin
      Self.x := x;
      Self.y := y;
    end;
    procedure Println;
    begin
      writeln(x,' ',y);
    end;
  end;

var p,p1: Point;

begin
  p.Init(2,3);
  p.Println;
  p1 := new Point(5,6);
  p1.Println;
end.

Ссылки