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

TAChart: Fix out-of-range array access in TIntervalList.AddRange

Browse Source 
git-svn-id: trunk@32308 -
This commit is contained in:
ask 2011-09-13 07:14:43 +00:00
parent 24260c4e30
commit f15f938f64
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tachartutils.pas
View File

@ -572,12 +572,12 @@ var
begin
i := 0;
while (i <= High(FIntervals)) and (FIntervals[i].FEnd < AStart) do
Inc(i);
i += 1;
if i <= High(FIntervals) then
AStart := Min(AStart, FIntervals[i].FStart);
j := High(FIntervals);
while (j >= 0) and (FIntervals[j].FStart > AEnd) do
Dec(j);
j -= 1;
if j >= 0 then
AEnd := Max(AEnd, FIntervals[j].FEnd);
if i < j then begin
@ -587,7 +587,7 @@ begin
end
else if i > j then begin
SetLength(FIntervals, Length(FIntervals) + 1);
for k := High(FIntervals) downto i do
for k := High(FIntervals) downto i + 1 do
FIntervals[k] := FIntervals[k - 1];
end;
FIntervals[i] := DoubleInterval(AStart, AEnd);