Про массивы

[Nicht Shiessen 2]

Добрый день!

Вот хочу задать пару вопросов промассывы в VB.

1. Можно ли создавать многомерные динамические массивы и как? Я пробовал как одномерный redimom VB ругается. И если нельзя (как я уже начинаю подозревать) то как адекватнее обойти проблему того, что нужен многмерный квадратный массив, причем размерность его может быть разной и заранее неизвестна?

2. Как лучше и правильней передавать массивы в функции и процедуры. У меня сейчас получается: я передаю массив в процедуру, он там меняется, но меняется и во всей остальной программе, чего мне не нужно, т. е. мне надо передать не ссылку на массив, а его значения.

3. Каким контролом правильнее отображать массивы на форме. Вроде есть FlexGrid (но там как я понял нельзя менять значения данных) и еще есть DBGrid. Но там две строки, а мне надо явно больше. Конечно можно и текстбоксов накидать, но это долго и неудобно? Может еще какие нить контролы по этому поводу есть? Или я не все свойства этих знаю?

[GSerg]

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

   dim b() as byte
redim b(1 to 10, 5 to 100)

2. после получения массива копировать его в переменную массива нужного типа.

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

   MSFlexGrid1.Rows = 10

[Nicht Shiessen 2]

[list=1][*]

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

dim b() as byte
redim b(1 to 10, 5 to 100)

[*]

Во. Спасибо большое такой конструкции хитрой не знал!!!

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

Вот этого я немного не понял, в принципе и так вроде пока обошелся, но если есть какой нить хитрый способ передачи массивов, то расскажите, пожалуйста - на будущее пригодится.

Сейчас я такаю массивы по одной форме из процедуры в процедуру, а вот уже передать ее в другую или там в функцию внешнюю уже не могу.

[GSerg]

2.

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

function MyFunc(arr() as long) as long
  dim arrcopy() as long
  arrcopy=arr
  'изменяем arrcopy, arr не трогаем
end function

[Matew]

Для сохранения значения массива вот так:
dim b() as byte
redim preserve b(1 to 10, 5 to 100), но второй раз с тем же массивом сделать можно только так:
redim preserve b(1 to 10, 5 to 120), а число первых изменять нельзя, или я ошибаюсь?

[Nicht Shiessen 2]

2.

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

function MyFunc(arr() as long) as long
  dim arrcopy() as long
  arrcopy=arr
  'изменяем arrcopy, arr не трогаем
end function

Не, ну до такого я тоже в конце концов додумался. Я думал как-то хитрее можно...

[alibek]

Matew, изменять (с Preserve) можно только только последнее измерение.

Nicht Shiessen, если массив числового типа, то можно попробовать функцию API CopyMemory.

[codemaster]

Если данных много то лучше
пользуй Recordset

1. Проще привязать к гриду.
2. Сортировка
3. Поиск
5. Экспорт
6. прочие блага ADO