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

TestSamples/CompilationSamples/Where.pas

21 строка414 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ������ Where - ����������� �� ���� ����������
uses System,System.Collections.Generic;

type
   MyClass<T,T1> = class 
   where T: System.Array,ICloneable;
   where T1: constructor;
     procedure p(obj1: T; var obj2: T1);
     begin
       obj1.Clone();
       obj2 := new T1;
     end;
   end;
   IntArr = array of integer;
   
var 
  m: MyClass<IntArr,integer>;
  //m1: MyClass<integer>; // ������

begin
end.