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