Как преобразовать массив 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;

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

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