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