TMethod?

[Randomize]

Можно ли в BlitzMax передавать в тип функцию или метод?
Образный код:

Type TAssa
 Field Draw:TMethod
 Field oppa:Int

 Method Preved()
  '...work in progress
 EndMethod
EndType

assa:TAssa=New TAssa
assa.Draw=SuperPuperDraw()

Repeat
 assa.Preved()
 assa.Draw()
Forever

может тебе нужно наследование ? потому что то что ты хочешь почти не применяется в ООП

Type TDrawObject
  Method Draw() Abstract
EndType

Type TAssa Extends TDrawObject
  Method Draw()
    ' special draw code
  EndMethod
EndType

таким же способом если описать Draw у TDrawObject то его можно вызывать из Draw в TAssa

[dimanche13]

можно сделать поле как указатель на функцию. А вообще непойму как ты хочешь метод использовать без объекта?

[Randomize]

2Jimon : не, через наследование я не хотел делать.
На самом деле меня просто привлёк тип TMethod

2dimanche13 : Да допустим Java ADA или PHP поддерживают передачу функции откуда угодно в тип (даже через функцию).
Чтото типа:

function assa(p1,p2)
{
 return p1+p2;
};
Tassa.Create(1,2,3,function assa(p1,p2), true)

Или

Tassa.Create(1,2,3,function (p1,p2){
 return p1+p2;
}, true)

[dimanche13]

вообще-то метод- это функция в типе, просто ее первый параметр сам объект(self).

[Randomize]

вообще-то метод- это функция в типе, просто ее первый параметр сам объект(self).

Не понял ход мысли...
Это и так понятно, но я говорю не про то. Я имел в виду транспортировку функции или метода как обьекта.

[dimanche13]

объясни на пальцах что тебе надо сделать.

[Randomize]

На самом деле мне было просто интересно что за тип TMethod.
Вот я и подумал неужели в BlitzMax можно создавать функции-кочевники.

[dimanche13]

TMethod это один из элементов "отражения"(reflection). Он служит для того чтобы можно было узнать по объекту, какими методами он обладает и какие параметры эти методы принимают. Так же возможен вызов этих методов.
на счет функций кочевников можно сказать одно. Без проблем делается массив функций в типе и ты эти функции можешь инициализировать из вне.

[Randomize]

массив функций в типе...
Можно больше деталей? Это любопытно.

ну вот к примеру указатель на функцию

	Method AddFunction(func:Int(ls:Byte Ptr), name:String)
		If (m_started)
			lua_register(m_lua_state, name, func)
		End If
	End Method

[dimanche13]

Сообщение от Randomize

массив функций в типе...
Можно больше деталей? Это любопытно.

ну очень просто.
пример собран на коленке, не проверял.

SuperStrict

Type myType

	Field callback()[]

	Method add_function( num:Int, func() )

		If( callback.length - 1 < num ) Then 
			callback = callback[ .. num + 1]
		End If

		callback[ num ] = func
	End Method

	Method run_all()
		For Local func() = EachIn callback
			func()
		Next
	End Method

End Type

Function func_1()
	Print "func_1"
End Function	

Function func_2()
	Print "func_2"
End Function	

Function func_3()
	Print "func_3"
End Function	

Local bugoga:myType = New myType

bugoga.add_function( 0 , func_1 )
bugoga.add_function( 1 , func_2 )
bugoga.add_function( 2 , func_3 )
bugoga.add_function( 3 , func_1 )

bugoga.run_all() ' пройдемся по всем функциям

end

блин поставил намедни 1.33 рс5 и перестала документация компилиться, а потом и всё перестало компилиться. Жалуется на шквал. Но я его блин даже не юзал никогда, тока проверял враппер. Может скажет кто как починить? Я уже на 1.30 откатился - та же фигня...

[Randomize]

dimanche13, спасибо большое! Именно это мне и было интересно.

Косательно твоей проблемы:
я использую версию 1.30, такой же глюк был. Помогло лишь тотальное удаление папки BlitzMax с корнем и последующая переустановка.
После систематических вылетов, глюков и лагов BlitzMax выяснил, что это происходит изза наличия вирусов на машине. После глубокого скана, переустановки ОС и повторного полного скана больше таких глюков не замечал. Проверь, может вирусы.

[dimanche13]

Переставил ОСь - все по прежнему, вирусов -нет 99%. Осталось вариант с полным удалением попробовать...

[SBJoker]

К сожалению перестановка оси не избавляет от вирусов.
От них спасает форматирование дисков и запись только проверенных файлов и программ. Или банально использовать любой антивирус хотя бы в триальном режиме