Методы расширения

Материал из Вики проекта PascalABC.NET
Версия от 10:26, 16 января 2010; Mikst (обсуждение | вклад)
(разн.) ← Предыдущая версия | Текущая версия (разн.) | Следующая версия → (разн.)
Перейти к навигацииПерейти к поиску

Можно расширить любой тип невиртуальными методами.

procedure integer.Hello;
begin
  writeln(Self);
end;

type iarr = System.Array;

procedure iarr.Hello;
begin
  foreach x: integer in Self do
    write(x,' ');
end;  

begin
  var i: integer := 777;
  i.Hello;
  var a: array of integer := (1,3,5);
  a.Hello;
end.

Ссылки