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

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

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.

Ссылки

• Особенности языка: продвинутый уровень
• Сайт PascalABC.NET: Особенности языка