| # | 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 |