pascalabcnet/InstallerSamples/!MainFeatures/06_Classes/Records.pas

// Иллюстрация конструкторов и методов в записях
// Если переопределен метод ToString, то он вызывается при выводе объекта этого типа процедурой writeln 
type
  SexType = (Male, Female);
  Person = record
    Name: string;
    Age, Weight: integer;
    Sex: SexType;
    constructor (Name: string; Age, Weight: integer; Sex: SexType);
    begin
      Self.Name := Name;
      Self.Age := Age;
      Self.Sex := Sex;
      Self.Weight := Weight;
    end;
    function ToString: string; override;
    begin
      Result := $'Имя: {Name}   Пол: {Sex}   Возраст: {Age}   Вес: {Weight}';
    end;
  end;
  
begin
  var p: Person := new Person('Иванов',20,70,SexType.Male);

  Println(p);
end.