mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-01 06:40:36 +02:00
LCL/DBGrid: Fix memory leak, patch by michalgw, issue #39904.
(cherry picked from commit e21bc4cd01
)
This commit is contained in:
parent
5fce24b919
commit
302a29d51a
@ -4637,7 +4637,12 @@ begin
|
||||
FList.Insert(Index, Bookmark);
|
||||
FGrid.Invalidate;
|
||||
end else
|
||||
begin
|
||||
FDataset.FreeBookmark(Bookmark);
|
||||
{$ifndef noautomatedbookmark}
|
||||
SetLength(TBookmark(Bookmark),0); // decrease reference count
|
||||
{$endif}
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user