paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 05:30:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add try-finally block to TCubicSplineSeries.PrepareCoeffs. Issue #35268, patch by Marcin Wiazowski

Browse Source 
git-svn-id: trunk@60821 -
This commit is contained in:
wp 2019-04-02 20:24:36 +00:00
parent c4c50a69c7
commit a92054a040
1 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
components/tachart/tafuncseries.pas
View File

@ -1541,22 +1541,31 @@ procedure TCubicSplineSeries.PrepareCoeffs;
var
i: Integer = 0;
j: Integer = 0;
sCount: Integer = 0;
s: TSpline;
begin
FreeSplines;
SetLength(FX, Source.Count);
SetLength(FY, Source.Count);
while i < Source.Count do begin
s := TSpline.Create(self);
if s.PrepareCoeffs(Source, i, j) then begin
SetLength(FSplines, Length(FSplines) + 1);
FSplines[High(FSplines)] := s;
end
else
s.Free;
SetLength(FSplines, Source.Count);
try
while i < Source.Count do begin
s := TSpline.Create(self);
try
if s.PrepareCoeffs(Source, i, j) then begin
FSplines[sCount] := s;
s := nil;
sCount += 1;
end;
finally
s.Free;
end;
end;
SetLength(FX, j);
SetLength(FY, j);
finally
SetLength(FSplines, sCount);
end;
SetLength(FX, j);
SetLength(FY, j);
end;
procedure TCubicSplineSeries.SetBadDataPen(AValue: TBadDataChartPen);