Order и OrderDescending для строк с Ordinal

spectatorBH · Mar 2, 2024 · c9d7ba7 · c9d7ba7
1 parent 6fbc020
commit c9d7ba7
Show file tree

Hide file tree

Showing 7 changed files with 35 additions and 5 deletions.
diff --git a/Configuration/GlobalAssemblyInfo.cs b/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 = "3425";
+	public const string Revision = "3426";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

diff --git a/Configuration/Version.defs b/Configuration/Version.defs
@@ -1,4 +1,4 @@
-%MINOR%=9
-%REVISION%=3425
 %COREVERSION%=0
+%REVISION%=3426
+%MINOR%=9
 %MAJOR%=3
diff --git a/Release/pabcversion.txt b/Release/pabcversion.txt
@@ -1 +1 @@
-3.9.0.3425
+3.9.0.3426
diff --git a/ReleaseGenerators/PascalABCNET_version.nsh b/ReleaseGenerators/PascalABCNET_version.nsh
@@ -1 +1 @@
-!define VERSION '3.9.0.3425'
+!define VERSION '3.9.0.3426'
diff --git a/TestSuite/CompilationSamples/PABCSystem.pas b/TestSuite/CompilationSamples/PABCSystem.pas
@@ -10192,6 +10192,18 @@ function OrderDescending<T>(Self: sequence of T): sequence of T; extensionmethod
   Result := Self.OrderByDescending(x -> x);
 end;
 
+/// Возвращает отсортированную по возрастанию последовательность
+function Order(Self: sequence of string): sequence of string; extensionmethod;
+begin
+  Result := Self.OrderBy(x -> x, System.StringComparer.Ordinal);
+end;
+
+/// Возвращает отсортированную по убыванию последовательность
+function OrderDescending(Self: sequence of string): sequence of string; extensionmethod;
+begin
+  Result := Self.OrderByDescending(x -> x, System.StringComparer.Ordinal);
+end;
+
 /// Возвращает множество HashSet по данной последовательности
 function ToHashSet<T>(Self: sequence of T): HashSet<T>; extensionmethod;
 begin

diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas
@@ -10192,6 +10192,18 @@ function OrderDescending<T>(Self: sequence of T): sequence of T; extensionmethod
   Result := Self.OrderByDescending(x -> x);
 end;
 
+/// Возвращает отсортированную по возрастанию последовательность
+function Order(Self: sequence of string): sequence of string; extensionmethod;
+begin
+  Result := Self.OrderBy(x -> x, System.StringComparer.Ordinal);
+end;
+
+/// Возвращает отсортированную по убыванию последовательность
+function OrderDescending(Self: sequence of string): sequence of string; extensionmethod;
+begin
+  Result := Self.OrderByDescending(x -> x, System.StringComparer.Ordinal);
+end;
+
 /// Возвращает множество HashSet по данной последовательности
 function ToHashSet<T>(Self: sequence of T): HashSet<T>; extensionmethod;
 begin

diff --git a/bin/Lib/PABCSystem.xml b/bin/Lib/PABCSystem.xml
@@ -3098,6 +3098,12 @@
     <member name="M:OrderDescending``1(System.Collections.Generic.IEnumerable{``0})">
       <summary>Возвращает отсортированную по убыванию последовательность</summary>
     </member>
+    <member name="M:Order(System.Collections.Generic.IEnumerable{System.String})">
+      <summary>Возвращает отсортированную по возрастанию последовательность</summary>
+    </member>
+    <member name="M:OrderDescending(System.Collections.Generic.IEnumerable{System.String})">
+      <summary>Возвращает отсортированную по убыванию последовательность</summary>
+    </member>
     <member name="M:ToHashSet``1(System.Collections.Generic.IEnumerable{``0})">
       <summary>Возвращает множество HashSet по данной последовательности</summary>
     </member>