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

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;

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%MINOR%=9
-%REVISION%=3425
 %COREVERSION%=0
+%REVISION%=3426
+%MINOR%=9
 %MAJOR%=3

Release/pabcversion.txt

@@ -1 +1 @@
-3.9.0.3425
+3.9.0.3426

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.9.0.3425'
+!define VERSION '3.9.0.3426'

TestSuite/CompilationSamples/PABCSystem.pas

@@ -10192,6 +10192,18 @@ begin
   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

bin/Lib/PABCSystem.pas

@@ -10192,6 +10192,18 @@ begin
   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

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>