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

RealRange.Size

Browse source
This commit is contained in:
Sun Serega 2023-12-05 12:10:48 +02:00
parent d93371d03c
commit 88d5c3e780
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
TestSuite/RangeT count.pas
View file

@ -7,4 +7,4 @@ Assert( ('b'..'c').Count = 2 );
Assert( ('c'..'b').Count = 0 );
Assert( (2.0..3).Size = 1 );
Assert( (3.0..2).Size = -1 );
Assert( (3.0..2).Size = 0 );

2
bin/Lib/PABCSystem.pas
View file

@ -769,7 +769,7 @@ type
property Low: real read l;
property High: real read h;
property Size: real read h-l;
property Size: real read System.Math.Max(0, h-l);
static function operator in(x: real; r: RealRange): boolean := (x >= r.l) and (x <= r.h);