Commit 8396dd8

committed

Update error messages in NormaliseByWeight functions

Updated messages in exceptions raised in Double and Cardinal overloads to mentions that errors are concerned with weights.

1 parent 28b2b6f commit 8396dd8Copy full SHA for 8396dd8

File tree

-5

lines changed

-5

lines changed

Lines changed: 3 additions & 3 deletions

Original file line number	Diff line number	Diff line change
`@@ -6,18 +6,18 @@ var`
`6`	`6`	`Idx: Integer;`
`7`	`7`	`begin`
`8`	`8`	`if (System.Length(A) = 0) then`
`9`		`- raise SysUtils.EArgumentException.Create('Array is empty');`
	`9`	`+ raise SysUtils.EArgumentException.Create('Array of weights is empty');`
`10`	`10`	`WeightSum := 0.0;`
`11`	`11`	`for Weight in A do`
`12`	`12`	`begin`
`13`	`13`	`if Math.Sign(Weight) = Math.NegativeValue then`
`14`	`14`	`raise SysUtils.EArgumentException.Create(`
`15`		`- 'All array elements must be non-negative'`
	`15`	`+ 'All weights must be non-negative'`
`16`	`16`	`);`
`17`	`17`	`WeightSum := WeightSum + Weight;`
`18`	`18`	`end;`
`19`	`19`	`if Math.IsZero(WeightSum) then`
`20`		`- raise SysUtils.EArgumentException.Create('Sum of array elements is zero');`
	`20`	`+ raise SysUtils.EArgumentException.Create('Sum of weights is zero');`
`21`	`21`	`System.SetLength(Result, System.Length(A));`
`22`	`22`	`for Idx := 0 to Pred(System.Length(A)) do`
`23`	`23`	`Result[Idx] := A[Idx] / WeightSum;`

Lines changed: 2 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -6,12 +6,12 @@ var`
`6`	`6`	`Idx: Integer;`
`7`	`7`	`begin`
`8`	`8`	`if (System.Length(A) = 0) then`
`9`		`- raise SysUtils.EArgumentException.Create('Array is empty');`
	`9`	`+ raise SysUtils.EArgumentException.Create('Array of weights is empty');`
`10`	`10`	`WeightSum := 0;`
`11`	`11`	`for Weight in A do`
`12`	`12`	`WeightSum := WeightSum + Weight;`
`13`	`13`	`if WeightSum = 0 then`
`14`		`- raise SysUtils.EArgumentException.Create('Sum of array elements is zero');`
	`14`	`+ raise SysUtils.EArgumentException.Create('Sum of weights is zero');`
`15`	`15`	`System.SetLength(Result, System.Length(A));`
`16`	`16`	`for Idx := 0 to Pred(System.Length(A)) do`
`17`	`17`	`Result[Idx] := A[Idx] / WeightSum;`

Comments

(0)