структуры в safearray реально?

← →
Oleg_ (2005-05-19 18:47) [0]

Подскажите как запихнуть некую структурку в safearray...

← →
charlie (2005-05-19 19:43) [1]

var
Arr : Variant;
M : TMessage;
P : Pointer;
begin
M.Msg := 12;
M.Result := 44;
Arr := VarArrayCreate([0, SizeOf(TMessage)], varByte);
// туда
P := VarArrayLock(Arr);
Move(M, P^, SizeOf(TMessage));
VarArrayUnlock(Arr);
// на ноль
M.Msg := 0;
M.Result := 0;
// обратно
P := VarArrayLock(Arr);
Move(P^, M, SizeOf(TMessage));
VarArrayUnlock(Arr);
ShowMessageFmt("M.Msg := %d, M.Result := %d", [M.Msg, M.Result]);
end;

структуры в safearray реально? Найти похожие ветки