| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

структуры в safearray реально? [D6, WinXP]

Oleg_ ©   (2005-05-19 18:47:00) 

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

---

charlie   (2005-05-19 19:43:00) [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;

---

Наверх