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

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

Как преобразовать массив olevariant в array of word? [D6, NT4, Win2k]

Dead Stark ©   (2002-10-03 12:45:00) 

Как преобразовать массив olevariant в array of word, если известно, что в olevariant именно такой массив и запакован?

---

Dead Stark   (2002-10-03 13:11:00) [1]

Спасибо! действительно помогло!

---

han_malign   (2002-10-03 13:07:00) [2]

а запакован он все равно в универсальную структуру
TVarRec = record { do not pack this record; it is compiler-generated }
case Byte of
vtInteger: (VInteger: Integer; VType: Byte);
vtBoolean: (VBoolean: Boolean);
vtChar: (VChar: Char);
vtExtended: (VExtended: PExtended);
vtString: (VString: PShortString);
vtPointer: (VPointer: Pointer);
vtPChar: (VPChar: PChar);
vtObject: (VObject: TObject);
vtClass: (VClass: TClass);
vtWideChar: (VWideChar: WideChar);
vtPWideChar: (VPWideChar: PWideChar);
vtAnsiString: (VAnsiString: Pointer);
vtCurrency: (VCurrency: PCurrency);
vtVariant: (VVariant: PVariant);
vtInterface: (VInterface: Pointer);
vtWideString: (VWideString: Pointer);
vtInt64: (VInt64: PInt64);
end;

---

han_malign   (2002-10-03 13:03:00) [3]


..............
var array_of_word: array of word;
begin
SetLength(array_of_word,VarArrayHighBound(OleVar,1)-VarArrayLowBound(OleVar,1)+1);
for i:=VarArrayLowBound(OleVar,1) to VarArrayHighBound(OleVar,1)
do array_of_word[i-VarArrayLowBound(OleVar,1)]:=
VarAsType(OleVar[i],varSmallint);
.............
а боле ни как
З.Ы. Единственное отличие OleVariant от Varian что "OleVariants use WideStrings rather than Pascal strings."
З.З.Ы. Если массив многомерный то VarArrayDimCount вложенных циклов.

---

Наверх