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)

dimanche13 19.08.2007 19:47

Как узать объект?
 
Ну есть у меня например ф-ция для триггера:
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) ..

johnk 19.08.2007 20:27

Re: Как узать объект?
 
Сделай из нее метод, и будет тебе счасьте.

dimanche13 19.08.2007 20:31

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

johnk 19.08.2007 20:41

Re: Как узать объект?
 
Ну тут не такой подход нужен. Здесь нужно методами все это промышлять.

dimanche13 19.08.2007 21:18

Re: Как узать объект?
 
ну поделись своим методом...

jimon 19.08.2007 21:26

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)


johnk 19.08.2007 21:27

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

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

dimanche13 19.08.2007 21:32

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

jimon 19.08.2007 21:40

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

dimanche13 19.08.2007 22:40

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

ICoder 27.10.2008 17:42

Ответ: Как узать объект?
 
Несмотря на давность темы - решил оживить её. Вот один вариант:
Код:

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:

Черный крыс 03.11.2008 12:10

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

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

ICoder 03.11.2008 18:18

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

Сообщение от Diablo1909 (Сообщение 89982)
Для общих случаев юзай обьекты.

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

dimanche13 04.11.2008 11:20

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

oxid 16.11.2008 14:31

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

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

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


Часовой пояс GMT +4, время: 00:34.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot