ToSet

Configuration/GlobalAssemblyInfo.cs

@@ -15,7 +15,7 @@ internal static class RevisionClass
 	public const string Major = "3";
 	public const string Minor = "9";
 	public const string Build = "0";
-	public const string Revision = "3530";
+	public const string Revision = "3531";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%COREVERSION%=0
-%REVISION%=3530
 %MINOR%=9
+%REVISION%=3531
+%COREVERSION%=0
 %MAJOR%=3

Release/pabcversion.txt

@@ -1 +1 @@
-3.9.0.3530
+3.9.0.3531

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.9.0.3530'
+!define VERSION '3.9.0.3531'

TestSuite/CompilationSamples/PABCSystem.pas

@@ -10984,6 +10984,12 @@ begin
   Result := new HashSet<T>(Self);
 end;
 
+/// Возвращает множество по данной последовательности
+function ToSet<T>(Self: sequence of T): HashSet<T>; extensionmethod;
+begin
+  Result := new HashSet<T>(Self);
+end;
+
 /// Возвращает множество SortedSet по данной последовательности
 function ToSortedSet<T>(Self: sequence of T): SortedSet<T>; extensionmethod;
 begin

bin/Lib/PABCSystem.pas

@@ -10984,6 +10984,12 @@ begin
   Result := new HashSet<T>(Self);
 end;
 
+/// Возвращает множество по данной последовательности
+function ToSet<T>(Self: sequence of T): HashSet<T>; extensionmethod;
+begin
+  Result := new HashSet<T>(Self);
+end;
+
 /// Возвращает множество SortedSet по данной последовательности
 function ToSortedSet<T>(Self: sequence of T): SortedSet<T>; extensionmethod;
 begin