paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-16 09:59:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

* MaxIntValue implementation from Roman Kassebaum, fixes issue #39248

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-11-28 09:05:22 +01:00
parent 6d814279ae
commit b056e9c2b3
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/rtl/math.pas
View File

@ -142,6 +142,8 @@ function PopNStdDev(const data : array of Double) : double;
function PopNVariance(const data : array of Double) : double;
procedure MomentSkewKurtosis(const data : array of Double; out m1,m2,m3,m4,skew,kurtosis : double);
function MaxIntValue(const AData: array of Integer): Integer;
// Financial functions
Type
@ -883,5 +885,17 @@ begin
result:=LessThanValue;
end;
function MaxIntValue(const AData: array of Integer): Integer;
var
lCount: Integer;
begin
Result := AData[Low(AData)];
for lCount := Low(AData) + 1 to High(AData) do
begin
if Result < AData[lCount] then
Result := AData[lCount];
end;
end;
end.