Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.14;
Скачать: CL | DM;

Вниз

Как преобразовать массив olevariant в array of word?   Найти похожие ветки 

 
Dead Stark ©   (2002-10-03 12:45) [0]

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


 
han_malign   (2002-10-03 13:03) [1]


..............
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 вложенных циклов.


 
han_malign   (2002-10-03 13:07) [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;


 
Dead Stark ©   (2002-10-03 13:11) [3]

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



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

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

Наверх




Память: 0.47 MB
Время: 0.012 c
1-45461
Граф
2002-10-04 06:04
2002.10.14
F1- help ошбика при использовании потока TThread


1-45337
Nox
2002-10-05 17:13
2002.10.14
Получение имени компьютера по его IP-адресу


14-45499
Евген
2002-09-17 17:32
2002.10.14
Обход защиты ключа HASP


14-45523
kat
2002-09-18 15:22
2002.10.14
Direct Oracle Access


1-45304
VIB
2002-10-04 16:21
2002.10.14
Макропотстановка