Товарищи, подскажите пожалуйста как освобождать память в 'variant arrays'. Создал я её (v:=varCreateArray(..)), использовал, как теперь уничтожить? v:=unassigned; varclear(v); v:=0; не помогают, диспетчер задач показывает что при каждой итерации прога жрёт всё больше и больше памяти... Что делать?

Здравствуйте Contact, Вы писали:

C>varCreateArray

VarArrayRedim? Зачем же создавать то..

Здравствуйте vav, Вы писали:

VarArrayRedim работает лишь для первой размерности массива. А если массив двумерен? И на каждой итерации границы должны изменяться. :~|

То бишь это не аноним был, это я. [глюк] Действительно _redim не поможет.

Люди! Неужто все юзатели оного спокойно живут, не зная как с этим бороться???

Здравствуйте Contact, Вы писали:

C>Люди! Неужто все юзатели оного спокойно живут, не зная как с этим бороться???

попробуй
v := Null

А>VarArrayRedim работает лишь для первой размерности массива. А если массив двумерен? И на каждой итерации границы должны изменяться. :~|

А не знаешь как из двухмерного сделать простой? К тому же есть еще и динамические массивы, они могут быть и многомерными.

Здравствуйте vav, Вы писали:

А>>VarArrayRedim работает лишь для первой размерности массива. А если массив двумерен? И на каждой итерации границы должны изменяться. :~|

vav>А не знаешь как из двухмерного сделать простой? К тому же есть еще и динамические массивы, они могут быть и многомерными.

Знаю. Но размерность, границы массива и его variant'овость обусловлены тем, что затем он уходит в activex-конрол как параметр, и этот activex на основе его размерности и работает по разному...

Кстати, у людей могут возникнуть еще предложения, я их сразу отсеку.
(1) vaLockArray & vaUnlockArray присутствуют и парны.
(2) Даже если отрубать передачу массива в activex, то утечка всё равно есть. То есть это наш баг, а не его.

В конце концов установлено, что из найденных доступных способов действует лишь следующий:

uses ActiveX;
...
v := VarArrayCreate( [0,dim[1]-1,0,dim[2]-1],varSingle );
...
SafeArrayDestroy( pointer(TVarData(v).VArray) );