Текущий архив: 2005.06.06;
Скачать: CL | DM;

Вниз

структуры в 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;

---

Страницы: 1 вся ветка

Текущий архив: 2005.06.06;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.079 c