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

RxFPC:fix mem leak in rxdbutils.DataSetLocateThrough - tnx. ssadragon

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6915 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2019-05-16 12:41:56 +00:00
parent 0361aa3588
commit 303eea9e94
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/rx/trunk/rxdb/rxdbutils.pas
View File

@@ -458,7 +458,8 @@ var
Bookmark: TBookmark; Bookmark: TBookmark;
begin begin
Result := False; Result := False;
with DataSet do begin with DataSet do
begin
CheckBrowseMode; CheckBrowseMode;
if BOF and EOF then Exit; if BOF and EOF then Exit;
end; end;
@@ -470,7 +471,11 @@ begin
if SearchOrigin = rsdAll then if SearchOrigin = rsdAll then
begin begin
Result := CompareRecord; Result := CompareRecord;
if Result then Exit; if Result then
begin
Fields.Free;
Exit;
end;
end; end;
DataSet.DisableControls; DataSet.DisableControls;