paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 00:19:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix division by zero when attempting to draw cubic splines from unordered X values

Browse Source 
git-svn-id: trunk@31479 -
This commit is contained in:
ask 2011-06-30 15:02:08 +00:00
parent b847eb1cdd
commit 8ccc414025
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tafuncseries.pas
View File

@ -655,12 +655,14 @@ begin
n := Source.Count;
SetLength(FX, n);
SetLength(FY, n);
SetLength(FCoeff, n);
FCoeff := nil;
for i := 0 to n - 1 do
with Source[i]^ do begin
FX[i] := X;
FY[i] := Y;
if (i > 0) and (FX[i - 1] >= X) then exit;
end;
SetLength(FCoeff, n);
ipfisn(n - 1, FX[0], FY[0], FCoeff[0], i);
if i > 1 then
FCoeff := nil;