Особенности динамических массивов в VB5

[raadmin]

Здраствуйте, господа.
Я много работаю с динамическими массивами на VB 5 и тут я сталкиваюсь с такой проблемой.
Процедура должна добавлять в массив A один элемент. Очевидное решение:

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



I = Ubound( A )
redim preserve A(i+1)


не будет работать, так как Ubound вызовет ошибку, если еще ни разу не был использован redim. Если же redim написать в Form_load, то в массиве уже будут какие-то элементы (так как невозможно указать внутри redim длину массива =0), а их быть не должно. К сожалению, динамические массивы нулевой длины почему-то в VB 5 (и 6, наверное, тоже) не поддерживаются.
Я делаю следующим образом. Оцените и скажите, правильно ли я делаю или есть способ покрасивее, получше и правильнее? Может, я что-то упустил?
МОЕ КОРЯВОЕ РЕШЕНИЕ ПОДОБНЫХ ПРОБЛЕМ:

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



Option base 1

Private Sub Form_Load()
   redim A(0 to 0)
End Sub

sub XXX
   I = Ubound( A ) + 1
   if I = 1 then redim A(i) else redim preserve A(i)
end sub




[Viper]

Отлавливать ошибку при попытке определения границ массива. Лучше всего вынести в отдельную процедуру.

Или вот здесь есть изящное решение проблемы

[raadmin]

Если под отлавливать ошибку понимается:

on error goto

то это никак не пойдет. Конструкция слишком неудобная. Поймите, эту проверку нужно будет делать, может быть, в 10 местах! Если я везде будет городить огород из on error, то это будет очень некрасиво. К тому же, после on error goto придется еще написать on error goto 0.

В моем же примере всё получается АВТОМАТИЧЕСКИ: например, цикл

for i = 1 to Ubound(A)

выполнится 0 раз, если функция XXX не вызывалась.
Но всё равно, мой вариант - это скорее вынужденная мера. Я не могу назвать его красивым или удобным. Может ли кто-нибудь посоветовать что-нибудь по-лучше? И когда, в конце-концов, появится поддержка массивов с нулевой длиной?

Кстати, это к слову о выборе языка. Вот она, корявость VB во всей красе!

[GSerg]

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

Я процитирую специально для тебя ещё раз.

Отлавливать ошибку при попытке определения границ массива. Лучше всего вынести в отдельную процедуру.

[Viper]

И судя по всему статью автор так и не удосужился прочитать