Обобщенные подпрограммы

Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску

Обобщенные подпрограммы писать легко. При вызове обобщенной подпрограммы происходит выведение типа.

procedure Println<T>(a: array of T);
begin
  for var i:=0 to a.Length - 1 do
    write(a[i],' ');
  writeln;  
end;

var 
  a: array of integer := (1,3,5,7,9);
  ss: array of string := ('Иванов','Петров','Сидоров','Попов');

begin
  Println(a);
  Println(ss);
end.

Ссылки