paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 04:29:29 +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;
begin
If not assigned(FComponents) then
Result:=Nil
If assigned(FComponents) then
Result:=TComponent(FComponents.Items[Aindex])
else
Result:=TComponent(FComponents.Items[Aindex]);
Result:=Nil;
end;
function TComponent.IsImplementorOf (const Intf:IInterface):boolean;
@ -40,10 +40,10 @@ end;
Function TComponent.GetComponentCount: Integer;
begin
If not assigned(FComponents) then
result:=0
If assigned(FComponents) then
Result:=FComponents.Count
else
Result:=FComponents.Count;
result:=0
end;
@ -423,7 +423,7 @@ begin
L := FFreeNotifies;
FFreenotifies:=Nil;
for I := L.Count - 1 downto 0 do
TComponent(FFreeNotifies.Items[I]).Notification(self,opRemove);
TComponent(L.Items[I]).Notification(self,opRemove);
L.Free;
end;
DestroyComponents;