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

TestSamples/CompilationSamples/Template.pas

30 строк661 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

type
  Pair<T,Q> = template class
  public
    First: T;
    Second: Q;
    constructor(First: T; Second: Q);
    begin
      Self.First := First;
      Self.Second := Second;
    end;
    class function operator+(Left,Right: Pair<T,Q>): Pair<T,Q>;
    begin
      Result := new Pair<T,Q>(Left.First + Right.First, 
      						  Left.Second + Right.Second);
    end;
    function ToString: string; override;
    begin
      Result := string.Format('[{0}; {1}]', First, Second);
    end;
  end;
  
var
  a,b: Pair<integer, string>;
  
begin
  a := new Pair<integer,string>(1, '���� ');
  b := new Pair<integer,string>(2, '���');
  Writeln(a + b);
  readln;
end.