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

TAChart: Fix issue in recently added TCustomSortedChartSource.ItemFind(). Issue #35666, patch by Marcin Wiazowski.

Browse Source 
git-svn-id: trunk@61313 -
This commit is contained in:
wp 2019-06-03 21:49:43 +00:00
parent 7c3c2d5094
commit 96442a5bea
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/tachart/tacustomsource.pas
View File

@ -1785,20 +1785,21 @@ function TCustomSortedChartSource.ItemFind(AItem: PChartDataItem; L: Integer = 0
var
I: Integer;
begin
if not IsSorted then
raise ESortError.CreateFmt('%0:s.ItemFind can be called only for sorted source', [ClassName]);
if L < 0 then
L := 0;
if R >= FData.Count then
R := FData.Count - 1;
// special optimization for adding sorted data at the end
if R >= 0 then
if DoCompare(FData.List^[R], AItem) <= 0 then
exit(R + 1);
if L > R then
exit(L);
if DoCompare(FData.List^[R], AItem) <= 0 then
exit(R + 1);
if not IsSorted then
raise ESortError.CreateFmt('%0:s.ItemFind failed, because source is not sorted', [ClassName]);
// use binary search
if L < 0 then
L := 0;
while L <= R do
begin
I := L + (R - L) div 2;