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

Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Версия для печати больше не поддерживается и может содержать ошибки обработки. Обновите закладки браузера и используйте вместо этого функцию печати браузера по умолчанию.

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

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.

Ссылки