diff --git a/Configuration/GlobalAssemblyInfo.cs b/Configuration/GlobalAssemblyInfo.cs index 79149d498..47548b650 100644 --- 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 index 45f4b88a3..ae594f15d 100644 --- 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 index c97a0f8e2..112fb2d32 100644 --- 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 index db1833a13..ad15f8774 100644 --- 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 index 25ba0910a..b8e7a757b 100644 --- a/TestSuite/CompilationSamples/PABCSystem.pas +++ b/TestSuite/CompilationSamples/PABCSystem.pas @@ -10192,6 +10192,18 @@ function OrderDescending(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(Self: sequence of T): HashSet; extensionmethod; begin diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas index 25ba0910a..b8e7a757b 100644 --- a/bin/Lib/PABCSystem.pas +++ b/bin/Lib/PABCSystem.pas @@ -10192,6 +10192,18 @@ function OrderDescending(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(Self: sequence of T): HashSet; extensionmethod; begin diff --git a/bin/Lib/PABCSystem.xml b/bin/Lib/PABCSystem.xml index ef06951dc..7e42fdd67 100644 --- a/bin/Lib/PABCSystem.xml +++ b/bin/Lib/PABCSystem.xml @@ -3098,6 +3098,12 @@ Возвращает отсортированную по убыванию последовательность + + Возвращает отсортированную по возрастанию последовательность + + + Возвращает отсортированную по убыванию последовательность + Возвращает множество HashSet по данной последовательности