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

Merge pull request #2975 from SunSerega/RealRange.Size

Browse source 
`RealRange.Size`
This commit is contained in:
Mikhalkovich Stanislav 2023-12-10 22:26:48 +03:00 committed by GitHub
parent a96820ff0d 88d5c3e780
commit 1b51314278
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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);