Ptr и Var : как работает ?

[zheland]

Ptr и Var : для чего нужны и как работают ?

указатели на переменные
к примеру чтобы можно внутри функции изменить аргумент который в неё подается

[dimanche13]

ptr - *, var - &(byref param), varptr-&(get address)

[zheland]

А как ими пользоваться ?

[Horror]

псевдо код

function Set(var В:Integer)
{
B=5
}
//гдетто при вызове 
A:integer
Set(A)

результат
A=5

есля я правельно все написал
то это пример что ты можешь в функцию засунуть свою переменныю
и в функции ее изменить
очень удобно

ПС бмакс совсем не знаю)
написал примерно))

[moka]

Horror, почти прально написал (синтаксис не тот только), но суть именно та.
var - передаёт не значение переменной, а сам указатель на переменную, это почти также как заглобалить переменную и юзать не передовая, только - это не корректный подход будет При этом порой и не подходящий вовсе.

[HolyDel]

Horror очень здорово написал. это истинный псевдокод - семесь Си, паскаля и бейсика.
+1 как говорится.

[dimanche13]

Да, за такой псевдокод и +100 не жалко

[Horror]

пасибо!
Ну главное чтоб понятно было))
надеюс автор понял))
я то в бмаксе не шарю))

[zheland]

А как ими пользоваться ?

А как пользоваться Ptr
*Можно-ли перевести Byte Ptr в Short Ptr

[moka]

drunnik, Ptr - это массив.
К примеру: Byte Ptr - это массив байтов.
К примеру в Xors'е есть функция: xEntityName(Entity%), она возвращает массив байтов, я делаю так:

Function BPtoString$(tByte:Byte Ptr)
   Local tName$
   For Local i%=0 to 256
      If tByte[i]=Null Return tName
      tName:+Chr(tByte[i])
   Next
End Function

Local EntityName$=BPtoString(xEntityName(Entity))

[zheland]

*Можно-ли перевести Byte Ptr в Short Ptr

Просто

Byte Ptr ( variable : Short Ptr )

не работает

[moka]

drunnik, не понял что ты такое прописал
Объясни что дано и что хочешь получить.

[Bagration]

Здраствуйте, пишу потому уже два часа не могу одну проблему решить, гы стыд мне!
Как мне в филдах создать переменную указатель? Скажем для GUI, при создании кнопки указываем ей переменную которой она манипулирует. Потом в упдейте идет увеличиения или уменьшение переменной.
Я смог только в методе обновления сделать входное данное с указателем, код ниже.

Global mode:Int = 2
Global list:TList = New TList
Type TType
	'Field varr:int 
	Function create_v:TType() 
		Local cre:TType = New TType
			'cre.varr = varra
			list.AddLast(cre) 
	End Function
	Method update(varr Var) 
		varr:+1
	End Method
End Type
TType.create_v() 
For Local up:TType = EachIn list
	up.update(mode) 
Next

Print mode

Но сей способ мне не нравиться, что мне теперь каждый раз писать Упдейт(нужная переменная)?
Намного имхо грамотнее если я при создании кнопки укажу какую переменную будет увеличивать или уменьшать кнопка.

[moka]

Global list:TList = New TList
Type TType
	Field varr:%
	Function create_v:TType() 
		Local cre:TType = New TType
		list.AddLast(cre)
		Return cre
	End Function
End Type

Local obj:TType=TType.create_v()

obj.varr:+1