Передача массива как параметр!

[Keen]

У меня есть такая функция:

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

function somefunc(arr() as string,arrxdim as long,arrydim as long)
...
end fucntion


Массив - динамический, однако мы знаем что он - двумерный и еще знаем его размерность по двум последим параметрам.
Вопрос: как получить значение какждого элемента (x,y) массива arr()? Функция находится в классе.

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

' Вызов функции
dim func as new someclass
dim xarr(100,100) as string
xarr(5,6)="Value"
func.somefunc(xarr,100,100)


Такой код не работает, пишет что переменная не определена:

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

' Полный код этой самой somefunc в классе someclass
function somefunc(arr() as string,arrxdim as long,arrydim as long)
   redim preserve arr(arrxdim,arrydim) ' ТУТ ОШИБКА
   somevalue$=arr(5,6)
end fucntion


Если в параметрах вызова функции менять xarr на xarr(), результат не меняется.

В чем дело?!

[alibek]

Можно обойтись и без двух последних параметров, arrxdim=UBound(arr,1), arrydim=UBound(arr,2).
Не пробовал вызывать, как xarr()?

[codemaster]

Какие богатые желания !

Для начала попробуй следующий код:

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

Dim xarr(3) As String
ReDim xarr(5)
xarr(5) = "Value"

и

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

Dim xarr() As String
ReDim xarr(5)
xarr(5) = "Value"

какие мысли ?

[Keen]

xarr() на xarr менял - не помогает

2CodeMaster: в первом примере VB говорит, что массив уже имеет размерность.

[Leon_]

Так в этом то и смысл послания codemaster (возьму на себя роль переводчика ), что ReDim применяется только к массивам, объявленным пустыми (без указания размерности). Вот:

The ReDim statement is used to size or resize a dynamic array that has already been formally declared using a Private, Public, or Dim statement with empty parentheses (without dimension subscripts).

И в твоем примере должно быть

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

' Вызов функции
dim func as new someclass
dim xarr() as string
xarr(5,6)="Value"
func.somefunc(xarr,100,100)

[Approximator]

У меня есть такая функция:

Массив, ясен пень, дожОн быть динамическим, то есть

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

Dim xarr() as string

А вот ReDim Preserve можно только по последней размерности, вроде следующего:
ReDim Preserve arr(Lbound1 to Ubound1, Lbound2 to NewUbound2)

и никак иначе...