Определение методов внутри класса: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) (Новая: == Ссылки == *Особенности языка: продвинутый уровень *[http://pascalabc.net/ru/bazovyie-osobennosti-yazyika-i-bibliotek.html Сайт PascalAB...) |
Mikst (обсуждение | вклад) Нет описания правки |
||
(не показана 1 промежуточная версия этого же участника) | |||
Строка 1: | Строка 1: | ||
Определения методов возможны непосредственно в теле класса. | |||
<source lang="Delphi">type | |||
Person = class | |||
private | |||
name: string; | |||
age: integer; | |||
public | |||
constructor (n: string; a: integer); | |||
begin | |||
name := n; age := a; | |||
end; | |||
procedure Print; | |||
begin | |||
writeln('Имя: ',name,' Возраст: ',age); | |||
end; | |||
end; | |||
var p,p1: Person; | |||
begin | |||
p := new Person('Иванов',20); // Новый синтаксис вызова конструктора (рекомендуется) | |||
p.Print; | |||
p1 := Person.Create('Попов',19); // Старый синтаксис вызова конструктора (не рекомендуется) | |||
p1.Print; | |||
end.</source> | |||
== Ссылки == | == Ссылки == | ||
*[[Особенности языка: продвинутый уровень]] | *[[Особенности языка: продвинутый уровень]] | ||
*[http://pascalabc.net/ru/bazovyie-osobennosti-yazyika-i-bibliotek.html Сайт PascalABC.NET: Особенности языка] | *[http://pascalabc.net/ru/bazovyie-osobennosti-yazyika-i-bibliotek.html Сайт PascalABC.NET: Особенности языка] |
Текущая версия от 16:08, 14 января 2010
Определения методов возможны непосредственно в теле класса.
type
Person = class
private
name: string;
age: integer;
public
constructor (n: string; a: integer);
begin
name := n; age := a;
end;
procedure Print;
begin
writeln('Имя: ',name,' Возраст: ',age);
end;
end;
var p,p1: Person;
begin
p := new Person('Иванов',20); // Новый синтаксис вызова конструктора (рекомендуется)
p.Print;
p1 := Person.Create('Попов',19); // Старый синтаксис вызова конструктора (не рекомендуется)
p1.Print;
end.