Полное удаление массива данных

@ozyabkin · Регистрация: 14.12.2010

Студворк — интернет-сервис помощи студентам

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

Visual Basic
1
2
3
4
5
6
for i=n to 0
   redim preserve A(i)
   if i=0 then
      ' Здесь нужно получить массив, равный первоначальному A()
   end if
next i

Большое спасибо.

21.10.2011, 20:45

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Dim MyArray() As String
'' ...
Redim MyArray(1 To 1000)
'' ...
'' работаем с массивом, наполняем чем-то
'' ...
'' теперь надо почистить память от массива:
Erase MyArray
'' после этого массив теряет размерность - до следующего Redim''а!
'' затем можно ещё и так:
Redim MyArray(1 To 1000)
'' (и опять получится пустой массив)

PS: по поводу последней строчки "и опять получится пустой массив": точнее - массив должен получиться неопределённый, а не из пустых строк, но VB как всегда щадяще относится к разработчикам и массив действительно сделает нам состоящим из пустых строчек; если бы массив был As Long - то сделал бы его состоящим из нулей; если бы As Boolean - то из False, etc. Такая вот расслабуха

21.10.2011, 20:46

2[bold]Smalig[/bold]:
чё-то у тебя апостроф задваивается внутри тэга CODE ...

@Alexey Spirin · 23.10.2011, 13:00

Сообщение от Comanche

2[bold]Smalig[/bold]:
чё-то у тебя апостроф задваивается внутри тэга CODE ...

Думаю, защита от SQL Injection...

@Angry Old Man · 15.06.2024, 16:42

Виноват, случайно выдал пост не по адресу. Лучше бы удалить

@Тим70 · 17.06.2024, 18:41

А может так Erase

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

Comanche
	21.10.2011, 20:46
	2[bold]Smalig[/bold]: чё-то у тебя апостроф задваивается внутри тэга CODE ...

@Angry Old Man 2998 / 740 / 311 Регистрация: 26.03.2022 Сообщений: 1,382 Записей в блоге: 1
	15.06.2024, 16:42
	Виноват, случайно выдал пост не по адресу. Лучше бы удалить 0

@Тим70 Любитель 1039 / 746 / 160 Регистрация: 27.01.2019 Сообщений: 1,509
	17.06.2024, 18:41
	Сообщение было отмечено HackerVlad как решение Решение А может так Erase 1

Полное удаление массива данных

Решение