This array is fixed or temporarily locked

[miwutka]

Может кто знает, что это за ошибка? Возникает только в откомпиленном проекте, в билдере все ок. Я конечно был на msdn, нашел описание, но чето не вкурил в реальные причины и их решение... поиск на первых 2х страницах - ничего.

[Nicky]

Показать код?

[miwutka]

я не понял, ты хочешь код показать? давай =)

я бы с удовольствием показал код, но боюсь не поместится =(

[GB826]

This error has the following possible causes:

You tried to use ReDim to change the number of elements of a fixed-size array.
You tried to redimension a module-level dynamic array, in which one element has been passed as an argument to a procedure. If an element is passed, the array is locked to prevent deallocating memory for the reference parameter within the procedure.
You attempted to assign a value to a Variant variable containing an array, but the Variant is currently locked.
To correct this error

Make the original array dynamic rather than fixed by declaring it with ReDim (if the array is declared within a procedure), or by declaring it without specifying the number of elements (if the array is declared at the module level.
Determine whether you really need to pass the element, since it is visible within all procedures in the module.
Determine what is locking the Variant and remedy it.

но чето не вкурил в реальные причины и их решение

А ты затянись...

[alibek]

GB826, повежливее, плиз.

[miwutka]

короче, у меня в коде проходит цикл по всем файлам в папке. если файлов один, то все ок.

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


Dim fnames() As String
For Each f1 In fc

fnames = Split(f1.Name, ".")

есть подозрение что в этом месте чето с массивом.
как в цикле очистить нах массив?

И еще, что это за заблокированный Variant? чем она может быть залочена и как разлочить?

[GB826]

alibek
Ок, пардон, не сдержался.


miwutka , ВЫ затянитесь! :о))

[Nicky]

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

Dim fnames() As String
For Each f1 In fc

fnames = Split(f1.Name, ".")


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

Dim fnames

For Each f1 In fc
fnames = Split(f1.Name, ".")


[miwutka]

неа,
"Expected array"

[miwutka]

GB826, я вроде сказал, что прочитал это описание в мсдн. я сути не понял. фраза неуместна

[miwutka]

ну и че делать? все? хана? можно вешаться? ))

[Nicky]

...GB826, я вроде сказал, что прочитал это описание в мсдн...

И последовал всем рекомендациям?

[miwutka]

ну почти.
1. ReDim не делаю
2. параметры не передаю
3. Вот это я не понял, где и как блокируются Variant??