# | Line 308 | Line 308 | end; | |
---|---|---|
308 | ||
309 | function TInterfaceOwner.HasInterface(index: integer): boolean; | |
310 | begin | |
311 | < | Result := FInterfaces[index] <> nil; |
311 | > | Result := (Length(FInterfaces) > 0) and (FInterfaces[index] <> nil); |
312 | end; | |
313 | ||
314 | procedure TInterfaceOwner.Remove(intf: TInterfacedObject); |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |