Процедурные переменные: операции += и -=: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) (Новая: == Ссылки == *Особенности языка: продвинутый уровень *[http://pascalabc.net/ru/bazovyie-osobennosti-yazyika-i-bibliotek.html Сайт PascalAB...) |
Mikst (обсуждение | вклад) Нет описания правки |
||
Строка 1: | Строка 1: | ||
<source lang="Delphi">procedure pp; | |||
begin | |||
writeln('Вызов обычной процедуры'); | |||
end; | |||
type | |||
A = class | |||
private | |||
x: integer; | |||
public | |||
constructor Create(xx: integer); | |||
begin | |||
x := xx; | |||
end; | |||
procedure pp; | |||
begin | |||
writeln('Вызов метода класса, значение поля равно ',x); | |||
end; | |||
class procedure ppstatic; | |||
begin | |||
writeln('Вызов классового метода класса'); | |||
end; | |||
end; | |||
var p: procedure; | |||
begin | |||
p := pp; | |||
var a1: A := new A(5); | |||
p += a1.pp; | |||
p += A.ppstatic; | |||
p; | |||
writeln; | |||
p -= pp; | |||
p; | |||
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: Особенности языка] |
Версия от 15:48, 14 января 2010
procedure pp;
begin
writeln('Вызов обычной процедуры');
end;
type
A = class
private
x: integer;
public
constructor Create(xx: integer);
begin
x := xx;
end;
procedure pp;
begin
writeln('Вызов метода класса, значение поля равно ',x);
end;
class procedure ppstatic;
begin
writeln('Вызов классового метода класса');
end;
end;
var p: procedure;
begin
p := pp;
var a1: A := new A(5);
p += a1.pp;
p += A.ppstatic;
p;
writeln;
p -= pp;
p;
end.