function FindType(ObjType: Word; Container: Cardinal) : CardinalVerana wrote: if FindType( fishpole, fishpoleColor, Ground, True ) > 0 then begin (я так понял ему уже знак больше не нравится ?)
function FindTypeEx(ObjType: Word; Color: Word; Container: Cardinal; InSub: Boolean): Cardinal