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

rtti controls: clean up

Browse Source 
git-svn-id: trunk@11816 -
This commit is contained in:
mattias 2007-08-14 18:17:12 +00:00
parent a03409e87a
commit cede6cfe89
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/rtticontrols/rttigrids.pas
View File

@ -397,7 +397,7 @@ begin
if RegisteredTIGridControls=nil then exit;
for i:=0 to RegisteredTIGridControls.Count-1 do
TObject(RegisteredTIGridControls[i]).Free;
RegisteredTIGridControls.Free;
FreeAndNil(RegisteredTIGridControls);
end;
procedure Register;