forum.boolean.name - Как узать объект?

forum.boolean.name (http://forum.boolean.name/index.php)

- 2D-программирование (http://forum.boolean.name/forumdisplay.php?f=109)

- - Как узать объект? (http://forum.boolean.name/showthread.php?t=4200)

Как узать объект?

Ну есть у меня например ф-ция для триггера:
function Trigger(x:int,y:int, ob:object), которая должна изменять состояние объекта ob.
как взять ссылку на этот объект, что бы изменить внутренние его поля ob.x = 1 или использовать методы ob.choose() ?
Я сделал так, в самом объекте написал метод get() ,который возращает себя (return self), но это работает только если, я жестко указываю в объявлении функции тип объекта(TMyObj)
function Trigger(x:int,y:int, ob:TmyObj)
Возможно ли сделать как-нибудь по-другому? то есть универсальную функцию, а не набор из
function TriggerObj1(x:int,y:int, ob:TmyObj1) ..
function TriggerObj2(x:int,y:int, ob:TmyObj2) ..
function TriggerObj3(x:int,y:int, ob:TmyObj3) ..

Re: Как узать объект?

Сделай из нее метод, и будет тебе счасьте.

Re: Как узать объект?

Ну тут не такой подход нужен. Здесь нужно методами все это промышлять.

Re: Как узать объект?

ну поделись своим методом...

Re: Как узать объект?

кури вот так

Код:

Type TmyObj

field lol% = 1



method Trigger(x:int,y:int)

debuglog lol

end method



End Type



local a:Tmyobj = new tmyobj

a.Trigger(0,0)

Re: Как узать объект?

Ну если я правильно мыслю, то все по типу:

Есть тип Object

Цитата:

type Object
field x
field y
end type

Набираю в броузере, могу ченить напутать.
Ну и сменять их методом:

Цитата:

type Object
field x:int
field y:int
Method Triger(nx:int,ny:int)
x=nx
y=xy
end Method
end type

Так и так, придется набирать :) Сэкономить нажатие клавиш вроде не получится.

Re: Как узать объект?

Пилять, может я что-то не так объяснил. Все что вы пишите, я и так знаю. Я говорю тип триггер , в который можно передавать любой объект вот что меня интересует.
2JohnK type object - не скомпилится ,потому что это два зарезервированных слова.

Re: Как узать объект?

dimanche13
юзай наследие

Код:

Type Trigger



 field obj:TImage



 method Trig(x,y)

  drawimage obj,x,y

 end method

End Type



Type Trigger1 extends Trigger

 field blablabla%



 method Something()

  Trig(0,0)

 end method

End Type

любой обьект будет Object
function myfunc(my_variable:Object)
end function

Re: Как узать объект?

В общем я понял. Я плохо объяснил, что хочу. И никто мне не поможет, кроме себя самого. Всем спасибо. Все свободны.

Ответ: Как узать объект?

Несмотря на давность темы - решил оживить её. Вот один вариант:

Код:

Type TA

        Field x%, y%

        Field str$="This is type A"

EndType



Type TB

        Field x%, y%

        Field str$="This is type B"

End Type



Type TC

        Field x%, y%

        Field str$="This is type C"

End Type



Function Func(obj:Object)

        If TA(obj) Print TA(obj).str

        If TB(obj) Print TB(obj).str

        If TC(obj) Print TC(obj).str

End Function



Local aaa:TA=New TA

Local bbb:TB=New TB

Local ccc:TC=New TC



Func(ccc)

Func(aaa)

Func(bbb)

Я вот хотел создать тему с таким вопросом... Так что, если у кого есть дельное решение данного вопроса - напишите, please! :wild:

Ответ: Как узать объект?

Любой пользовательский обьект экземпляра - есть не что иное - как расширенный Object - их можно привести друг в друга.

Для общих случаев юзай обьекты.
Здесь тип Object - выступает неким "мостиком" который хранит указатель на обьект класса.
Для частного случая, когда необходимо точно узнать триггер это или например лифт, то просто приводим этот обьект в пользовательский тип, если результат не равен нулю - значит попали....=)

Ответ: Как узать объект?

Цитата:

Сообщение от Diablo1909 (Сообщение 89982)

Для общих случаев юзай обьекты.

Т.е. лучше прямо обращаться к какому-либу объекту по его имени, чем посредством "мостика" (Object)??? ;)

Ответ: Как узать объект?

Да, это все понятно, что вы говорите, суть проблемы была - загнать любой тип данных в функцию, и проблема до сих пор не решена. А к какому типу принадлежит объект можно и select-ом узнать.

Re: Ответ: Как узать объект?

Цитата:

Сообщение от dimanche13 (Сообщение 90032)

Ужос просто. Еще не решена.:wallbash:
Есть такое понятие - иерархия классов, оно подразумевает некий базовый класс (в идеале полностью абстрактный) от которого наследуются все остальные.
Проблема решается 2мя способами - перегружаемыми функциями или с помощью ООП.
1. Перегружаемых функций в БМ нет. Их можно сделать ручками, что неудобно. Этот вариант ты уже написал в самом первом посте. Все это гимор и останавливаться на этом не буду.
2. ООП. Тут есть где разгуляться:
2.1. Определение типов и приведение типов - уже описывали. Могу добавить что появился класс, который играет роль своеобразного указателя на класс объекта, что криво, но лучше что-то чем ничего. Ну и вообще основное его назначение не это, а отражения (reflection). И имя ему TTypeId. И плавно переходим к
2.2. Отражения. С помощью TTypeId можно определить класс и вызвать метод или обратиться к полю по имени. А также проверить есть ли нужное поле в классе, по его имени - Method FindField:TField( name$ ). Это подойдет ну для любого класса.
2.3. Иерархия (ИМО самый правильный и переносимый способ). Наследуем все нужные для работы классы от базового, в котором прописываем нужные общие поля и методы (абстракция в БМ есть). Аргументом передаем базовый тип, с которым можно делать то, что нам нужно.
Пжалуста.:cool: