paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 04:50:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed AV when no owner is set

Browse Source 
git-svn-id: trunk@17262 -
This commit is contained in:
joost 2011-04-06 10:15:37 +00:00
parent 53ca12f8ab
commit b911e3d1c3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-web/src/base/fphtml.pp
View File

@ -812,7 +812,7 @@ begin
exit;
end;
end
else //if (owner is TDataModule) then
else if assigned(Owner) then //if (owner is TDataModule) then
begin
for i := 0 to owner.ComponentCount-1 do if owner.Components[i] is TWebController then
begin