administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Merge pull request #2982 from SunSerega/net4.0

Browse source 
Исправление #2977 - сделал всё в `PABCSystem` совместимым с .Net4.0
This commit is contained in:
Mikhalkovich Stanislav 2023-12-10 22:31:05 +03:00 committed by GitHub
parent 1b51314278 a73dc92478
commit be62347a2a
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
bin/Lib/PABCSystem.pas
View file

@ -618,8 +618,9 @@ type
end;
type
//TODO #2983
/// Тип диапазона целых
IntRange = record(ICollection<integer>, IReadOnlyCollection<integer>, IEquatable<IntRange>)
IntRange = record(ICollection<integer>{, IReadOnlyCollection<integer>}, IEquatable<IntRange>)
private
l,h: integer;
public
@ -690,8 +691,9 @@ type
end;
//TODO #2983
/// Тип диапазона символов
CharRange = record(ICollection<char>, IReadOnlyCollection<char>, IEquatable<CharRange>)
CharRange = record(ICollection<char>{, IReadOnlyCollection<char>}, IEquatable<CharRange>)
private
l,h: char;
public
@ -5188,17 +5190,17 @@ function HSet<T>(a: sequence of T): HashSet<T> := new HashSet<T>(a);
function SSet<T>(a: sequence of T): SortedSet<T> := new SortedSet<T>(a);
function HSetInt(params a: array of integer): HashSet<integer> := a.ToHashSet;
function HSetInt(params a: array of integer): HashSet<integer> := new HashSet<integer>(a);
function HSetStr(params a: array of string): HashSet<string> := a.ToHashSet;
function HSetStr(params a: array of string): HashSet<string> := new HashSet<string>(a);
function SSetInt(params a: array of integer): SortedSet<integer> := new SortedSet<integer>(a);
function SSetStr(params a: array of string): SortedSet<string> := new SortedSet<string>(a);
function HSet(a: IntRange): HashSet<integer> := a.ToHashSet;
function HSet(a: IntRange): HashSet<integer> := new HashSet<integer>(a);
function HSet(a: CharRange): HashSet<char> := a.ToHashSet;
function HSet(a: CharRange): HashSet<char> := new HashSet<char>(a);
function Dict<TKey, TVal>(params pairs: array of KeyValuePair<TKey, TVal>): Dictionary<TKey, TVal>;