Вернуть Массив из функции...

[Memfivosfey]

Возник очень серъёзный вопрос, реально ли что бы функция возвращала не значение, а массив? Если да то как? Заранее спасибо...

[GSerg]

function a as long()
end function

[Ship]

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

Private Sub Form_Load()
Dim array2() As Byte
Dim i As Byte

array2() = func

For i = 0 To 2

    Text1.Text = Text1.Text & Str(array2(i))
   
Next

End Sub

Private Function func() As Byte()
Dim array1(2) As Byte
Dim i As Byte

For i = 0 To 2

    array1(i) = i + 1
   
Next

func = array1()

End Function


[Ariman]

Public Function Generate() as Long() - не работает такой синтаксис.
В чем дело?

[tyomitch]

Дай угадаю... У тебя VB5?

[Ariman]

Угадал! Я уже и сам об этом подумал.....
Я возращаю масив в variant, и меня это пока устраивает. Просто я думал, что можно это организовать как-то по-лучше......

[tyomitch]

Можно - поставив VB6

[Ariman]

Было б откуда
Диска у меня нет, но на компе, правда, рядом с ВБ 5-м, стоит полуудаленный шестой. По причине полуудаленности я им и не пользуюсь.....

[tyomitch]

Могу выложить - 93Мб в архиве. Надо?

[Memfivosfey]

Сработало! Огромное спасибо ещё раз, Ship...

[Ariman]

Могу выложить - 93Мб в архиве. Надо?

С моим-то диал-апом???
Спасибо, конечно, но врядли я выкачаю ЭТО.

[attackie]

А VB5 есть где выкачать? Я помню, SP3 на него выкачивал, но из SP3 VB5 не соберешь.

Кстати, VB5 CCE можно пропатчить-перепатчить-обмануть-делатьocxивешатькспециальноизготовленномуEXE, чтобы на выходе получались ПРИЛОЖЕНИЯ?

[tyomitch]

1. Можно тоже у меня
А надо?

2. Думаю, нет, однако кто знает

[attackie]

> 1. Можно тоже у меня
> А надо?

Давлю я F1, а вызывается - чо?


> 2. Думаю, нет, однако кто знает

А где скачать?


ps. Lite-Edition of VB5 install можешь сделать? Без всех компонентов, кроме первого, без активиксов, баз данных, тулзов. Голый компилер? Можно без хелпа, к VB5 хелп в интернете валяется.

Любая возможность работы с БД тоже не нужна. Иде не так много весит, чтобы и ее тоже того... Короче, минимум места для того, чтобы компилировалось - сколько весить будет?

[Memfivosfey]

ПОдскажите ещё пожалуйста, как назначить двумерный массив динамически..., не задавая колличество значений?

Dim Array(?,?) As String

[GSerg]

Dim Arr() As String
...
redim arr(x,y)

[Ariman]

Да вроде так же как и любой другой(трехмерный и т.д.)

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

.................
Dim a() as integer
.................
Redim a(5,10)

[Ariman]

Черт, опаздал

[Memfivosfey]

Спасибо, понял, разобрался....