mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-08 20:38:16 +02:00
free rows in reverse order, so child rows are freed before parent rows (prevents accessing released memory)
git-svn-id: trunk@7396 -
This commit is contained in:
parent
5ca30f441d
commit
2f778a2275
@ -2004,7 +2004,8 @@ procedure TOICustomPropertyGrid.ClearRows;
|
||||
var a:integer;
|
||||
begin
|
||||
IncreaseChangeStep;
|
||||
for a:=0 to FRows.Count-1 do begin
|
||||
// reverse order to make sure child rows are freed before parent rows
|
||||
for a:=FRows.Count-1 downto 0 do begin
|
||||
Rows[a].Free;
|
||||
end;
|
||||
FRows.Clear;
|
||||
|
Loading…
Reference in New Issue
Block a user