Topic: Locate bug...
Locate method raise access violation.
I fixed that below.
procedure TSqlitePassDataset.LocateMoveToRecord;
begin
FLocateMoveState:= grError;
if (FLocateCurrentItem > -1) and (FLocateCurrentItem < FLocateFoundRecords.Count) then
begin
MoveBy(Integer(FLocateFoundRecords.Items[FLocateCurrentItem]) - PInteger(ActiveBuffer)^); // changed
FLocateMoveState := grOk;
if FLocateCurrentItem = 0
then FLocateMoveState := grBOF
else if FLocateCurrentItem = Pred(FLocateFoundRecords.Count)
then FLocateMoveState := grEOF;
end;
end;
It works ok in delphi.