27 lines
840 B
ObjectPascal
27 lines
840 B
ObjectPascal
// Иллюстрация конструкторов и методов в записях
|
||
// Если переопределен метод 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 := Format('Имя: {0} Пол: {1} Возраст: {2} Вес: {3}', Name, Sex, Age, Weight);
|
||
end;
|
||
end;
|
||
|
||
var p: Person := new Person('Иванов',20,70,SexType.Male);
|
||
|
||
begin
|
||
writeln(p);
|
||
end.
|