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

* corrected some typo that was inserted by r13853

Browse Source 
git-svn-id: trunk@13854 -
This commit is contained in:
ivost 2009-10-13 15:48:42 +00:00
parent 65bca0a26d
commit 242560f138
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/objpas/classes/compon.inc
View File

@ -18,10 +18,10 @@
Function TComponent.GetComponent(AIndex: Integer): TComponent; Function TComponent.GetComponent(AIndex: Integer): TComponent;
begin begin
If not assigned(FComponents) then If assigned(FComponents) then
Result:=Nil Result:=TComponent(FComponents.Items[Aindex])
else else
Result:=TComponent(FComponents.Items[Aindex]); Result:=Nil;
end; end;
function TComponent.IsImplementorOf (const Intf:IInterface):boolean; function TComponent.IsImplementorOf (const Intf:IInterface):boolean;
@ -40,10 +40,10 @@ end;
Function TComponent.GetComponentCount: Integer; Function TComponent.GetComponentCount: Integer;
begin begin
If not assigned(FComponents) then If assigned(FComponents) then
result:=0 Result:=FComponents.Count
else else
Result:=FComponents.Count; result:=0
end; end;
@ -423,7 +423,7 @@ begin
L := FFreeNotifies; L := FFreeNotifies;
FFreenotifies:=Nil; FFreenotifies:=Nil;
for I := L.Count - 1 downto 0 do for I := L.Count - 1 downto 0 do
TComponent(FFreeNotifies.Items[I]).Notification(self,opRemove); TComponent(L.Items[I]).Notification(self,opRemove);
L.Free; L.Free;
end; end;
DestroyComponents; DestroyComponents;