pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

CalLite: Use binary search in TCalDateList (patch by howardpc). Some cleanup.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5342 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-11-11 21:52:31 +00:00
parent a7f21d2f4c
commit 479d7fbea9
1 changed files with 24 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
components/callite/source/calendarlite.pas
View File

@ -515,16 +515,33 @@ begin
end;
function TCalDateList.IndexOfDate(ADate: TDate): Integer;
// to do: Since the list is always ordered use a binary search here
var
i: Integer;
lower, higher, mid, truncADate, truncMidDate: integer;
function Compare: integer;
begin
if (truncMidDate < truncADate) then
Exit(-1)
else if (truncMidDate > truncADate) then
Exit(+1)
else
Exit(0);
end;
begin
for i:=0 to FList.Count-1 do
if SameDate(GetDate(i), ADate) then begin
Result := i;
exit;
lower := 0;
higher := Pred(FList.Count);
truncADate := trunc(ADate);
while (lower <= higher) do begin
mid := (lower + higher) shr 1;
truncMidDate:=trunc(GetDate(mid));
case Compare of
-1: lower := Succ(mid);
+1: higher := Pred(mid);
0: Exit(mid);
end;
Result := -1;
end;
Exit(-1);
end;
procedure TCalDateList.Insert(AIndex: Integer; ADate: TDate);