30 lines
596 B
ObjectPascal
30 lines
596 B
ObjectPascal
// Îïèñàíèå ìåòîäîâ âíå èíòåðôåéñà êëàññà
|
|
// Óäîáñòâî: èíòåðôåéñ ëó÷øå âèäåí
|
|
// Åñëè êëàññ îïèñàí â ìîäóëå, òî ðåàëèçàöèÿ ìåòîäîâ ïîìåùàåòñÿ â ñåêöèþ ðåàëèçàöèè ìîäóëÿ
|
|
type
|
|
Person = class
|
|
private
|
|
name: string;
|
|
age: integer;
|
|
public
|
|
constructor (n: string; a: integer);
|
|
procedure Print;
|
|
end;
|
|
|
|
//----------------- Person -------------------
|
|
constructor Person.Create(n: string; a: integer);
|
|
begin
|
|
name := n; age := a;
|
|
end;
|
|
|
|
procedure Person.Print;
|
|
begin
|
|
writeln('Èìÿ: ',name,' Âîçðàñò: ',age);
|
|
end;
|
|
|
|
var p: Person;
|
|
|
|
begin
|
|
p := new Person('Èâàíîâ',20);
|
|
p.Print;
|
|
end. |