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

Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску 
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.

Ссылки

Источник — https://pascalabc.net/wiki/index.php?title=Методы_в_записях&oldid=1355