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

free rows in reverse order, so child rows are freed before parent rows (prevents accessing released memory)

Browse Source 
git-svn-id: trunk@7396 -
This commit is contained in:
vincents 2005-07-22 12:41:39 +00:00
parent 5ca30f441d
commit 2f778a2275
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ideintf/objectinspector.pp
View File

@ -2004,7 +2004,8 @@ procedure TOICustomPropertyGrid.ClearRows;
var a:integer; var a:integer;
begin begin
IncreaseChangeStep; 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; Rows[a].Free;
end; end;
FRows.Clear; FRows.Clear;