Аналог Erase для одиночной структуры (юзертайпа)

[0xy]

Есть ли такое в VB 5--6?
("одиночной"--в слысле, не массива).

[ger_kar]

Встроенного нет, но можно сделать на основе вызова WinAPI функции RtlFillMemory

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

Declare Sub RtlFillMemory Lib "kernel32.dll" (ByRef Destination As Any, ByRef Length As Long, ByVal Fill As Byte)

[Хакер]

но можно сделать на основе вызова WinAPI функции RtlFillMemory

Мимо.
Во-первых, вместо RtlFillMemory есть RtlZeroMemory.
Во-вторых, Erase не просто зануляет память, а перед этим освобождает все нескалярные члены структуры: для массивов — уничтожается SAFEARRAY, для строк вызывает SysFreeString, для вариантов — VariantClear, для объектов — IUnknown::Release.

Встроенного аналога нет, но можно получить очень близкое его подобие. Достаточно написать функцию, возвращающую структуру, но на деле возвращающую ничего:

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

Function MakeCleanStruct() As SOME_STRUCT
End Function

И в моменты, когда нужна зачистка, делать присвоение:

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

MyUdr = MakeClearStruct()

На каждую структуру, понятное дело, понадобится отдельная функция.

[Mikle]

Достаточно написать функцию, возвращающую структуру, но на деле возвращающую ничего

Красиво. Я сразу и не догадался.

[ger_kar]

Но при таком раскладе можно и без функции обойтись, достаточно объявить пустую переменную с типом этой структуры и просто делать её присвоение.
А можно оформить в виде процедуры, куда передавать очищаемую переменную. Например так:

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

Sub MakeCleanStruct(x As SOME_STRUCT)
    Dim y As SOME_STRUCT : x = y
End Function

Во-вторых, Erase не просто зануляет память, а перед этим освобождает все нескалярные члены структуры: для массивов — уничтожается SAFEARRAY, для строк вызывает SysFreeString, для вариантов — VariantClear, для объектов — IUnknown::Release.

Ну, а если структура содержит только скалярные типы, то можно и функции RtlFillMemory и RtlZeroMemory заюзать

[Хакер]

Но при таком раскладе можно и без функции обойтись, достаточно объявить пустую переменную с типом этой структуры и просто делать её присвоение.

Функция — лучше, просто из-за того, что она гарантирует генерацию чистой структуры. В случае же с переменной нет силы, препятствующей случайному изменению подобной переменной (ибо нет квалификатора const как в C/C++). А значит с переменной мы имеем мину — случайная модификация подобной переменной приведёт к трудно-отлавливаемой ошибке, когда вместо предполагаемого зануления будет происходить нечто неправильное.

Ну, а если структура содержит только скалярные типы, то можно и функции RtlFillMemory и RtlZeroMemory заюзать

И это тоже мина, потому что потом приходит Вася и думает: ничего не должно сломаться, если я просто добавлю в структуру новое поле, ведь остальное код про него не знает и не обращается к нему. Вася не знает, что где-то в коде (возможно в одном месте, а возможно и в 1000 местах) применён неуниверсальные негибкий способ зачистки, который полагается на предположение, в структуре нет не-скалярных членов и никогда не появится.