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

Внешний Between

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2025-05-17 19:34:33 +03:00
parent a914ab6ef5
commit fbb5dec9a9
1 changed files with 14 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
bin/Lib/PABCSystem.pas
View file

@ -2334,8 +2334,10 @@ function Pred(x: uint64): uint64;
///--
function Pred(x: boolean): boolean;
/// Возвращает True, если значение val находится между a и b включительно (a ≤ val ≤ b)
/// Возвращает True, если значение val находится между a и b включительно
function InRange<T>(val, a, b: T): boolean; where T: IComparable<T>;
/// Возвращает True, если значение val находится между a и b (включительно) независимо от порядка a и b
function Between<T>(val, a, b: T): boolean; where T: IComparable<T>;
/// Меняет местами значения двух переменных
procedure Swap<T>(var a, b: T);
/// Возвращает True, если достигнут конец строки
@ -10684,12 +10686,21 @@ begin
Result := char(integer(x)-n);
end;
/// Возвращает True, если значение val находится между a и b включительно (a ≤ val ≤ b)
/// Возвращает True, если значение val находится между a и b включительно
function InRange<T>(val, a, b: T): boolean; where T: IComparable<T>;
begin
Result := (val.CompareTo(a) >= 0) and (val.CompareTo(b) <= 0);
end;
/// Возвращает True, если значение val находится между a и b (включительно) независимо от порядка a и b
function Between<T>(val, a, b: T): boolean; where T: IComparable<T>;
begin
if a.CompareTo(b) > 0 then
Result := (val.CompareTo(b) >= 0) and (val.CompareTo(a) <= 0)
else
Result := (val.CompareTo(a) >= 0) and (val.CompareTo(b) <= 0);
end;
procedure Swap<T>(var a, b: T);
begin
var v := a;
@ -14487,7 +14498,7 @@ begin
Result := Self.Split(|oldStr|, count+1, System.StringSplitOptions.None).JoinToString(newStr);
end;
/// Возвращает True если значение находится между двумя другими
/// Возвращает True если строка находится между двумя другими (лексикографическое сравнение)
function Between(Self: string; a, b: string): boolean; extensionmethod;
begin
Result := (a <= Self) and (Self <= b) or (b <= Self) and (Self <= a);