n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/templ.pas

22 строки447 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1


type 
  Adder<T> = template class
    class function Add(params args: array of T): T;
    var
      i: integer;
      s: T;
    begin
      result := args[0];
      for i:=1 to args.Length-1 do
        result := result + args[i];
    end;
  end;

type 
  IntAdder = Adder<integer>;
  StringAdder = Adder<string>;

begin
  Writeln(IntAdder.Add(1,2,3,4,5,6,7,8,9));
  Writeln(StringAdder.Add('str1 ','str2 ','str3 ','str4 ','str5'));
  Readln;
end.