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

apply patch for compile rx with fpc 2.6 - thx Daniel Simões de Almeida - close issue 21598

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2373 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2012-03-31 15:49:40 +00:00
parent acfeafbd7d
commit 2ae6517c57
3 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/rx/rxmemds.pas
View File

@ -1340,7 +1340,7 @@ begin
if Result then Exit;
DataSet.DisableControls;
try
Bookmark := DataSet.Bookmark;
Bookmark := DataSet.GetBookmark;
try
with DataSet do begin
First;
@ -1352,7 +1352,7 @@ begin
end;
finally
if not Result and DataSet.BookmarkValid(PChar(Bookmark)) then
DataSet.Bookmark := Bookmark;
DataSet.GotoBookmark(Bookmark);
end;
finally
DataSet.FreeBookmark(Bookmark);
@ -1581,7 +1581,7 @@ var
begin
if Active and (FRecords <> nil) and (FRecords.Count > 0) then
begin
Pos := Bookmark;
Pos := GetBookmark;
try
QuickSort(0, FRecords.Count - 1, @CompareRecords);
SetBufListSize(0);
@ -1595,7 +1595,7 @@ begin
raise;
end;
finally
Bookmark := Pos;
GotoBookmark(Pos);
FreeBookmark(Pos);
end;
Resync([]);