paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-29 22:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fix a memory leak in TBookmarkList.Refresh. Issue #31901, patch from Petr-K.

Browse Source 
git-svn-id: trunk@56005 -
This commit is contained in:
juha 2017-10-09 17:17:06 +00:00
parent f190a809da
commit 56f841fd39
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/dbgrids.pas
View File

@ -4666,6 +4666,9 @@ end;
function TBookmarkList.Refresh: boolean;
var
i: LongInt;
{$ifndef noautomatedbookmark}
Bookmark: Pointer;
{$endif}
begin
{$ifdef dbgDBGrid}
DebugLn('%s.Refresh', [ClassName]);
@ -4674,6 +4677,11 @@ begin
for i := FList.Count - 1 downto 0 do
if not FDataset.BookmarkValid(TBookMark(Items[i])) then begin
Result := True;
FDataset.FreeBookmark(Items[i]);
{$ifndef noautomatedbookmark}
Bookmark := FList[i];
SetLength(TBookmark(Bookmark),0); // decrease reference count
{$endif noautomatedbookmark}
Flist.Delete(i);
end;
if Result then