Как заставить функцию возвращать ссылку на массив

[IvanSh]

Собственно сабж.

Кстати в книге по VB6 вычитал что возврат массивов так:

Код: Выделить всё


Public Function ArrReturnFunc (i as Integer) as Integer ()
Dim x(2) as Integer
'код
Exit Function x
End Function

при таком написании VB ругается
поэтому возврачаю так

Код: Выделить всё


Public Function ArrReturnFunc (i as Integer) as Integer ()
Dim x(2) as Integer
'код
ArrReturnFunc=x
End Function

работает

[tyomitch]

IvanSh, выбрось такую книгу
Твой вариант совершенно правильный.

Только имей в виду, что возвращается не ссылка на массив, а весь массив целиком.

[GSerg]

Что за смайлы?
Книгу выбросить серьёзно!

[IvanSh]

нее, всеравно её не брошу потомумучто он полезен

так как насчёт вопроса.

[GSerg]

Тёмыч ответил

[GM]

Если ты уж так хочеш ссылку, то вместо возращять передавай:

Код: Выделить всё

Function Some()
dim a(1 to 100) as integer
arrReturnFunc a
end function
Public Function ArrReturnFunc (byref b() as integer)
b(1) = 10
End Function


Правда не знаю будет ли это работать.
ЗЫ: А я то сначала подумал о VarPtr...

[IvanSh]

Если ты уж так хочеш ссылку, то вместо возращять передавай

не так не пойдёт, так у меня сейчас, а хочется чего нибудь новенького.
Сейчас пойду попробую массив в обьктную переменную засунуть, а возвращать ссылку на обьект