27 lines
714 B
ObjectPascal
27 lines
714 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.
|