delphi-變體類型(variant)的介紹流與變體類型的相互轉(zhuǎn)換變體類型常用的函數(shù)

delphi變體類型（variant）的介紹（流與變體類型的相互轉(zhuǎn)換變體類型常用的函數(shù)一、變體類型常用的函數(shù)介紹：Variant：一種可以擁有各種數(shù)據(jù)類型；也可以告訴目前存儲的數(shù)據(jù)是什么類型(通過使用VarType函數(shù))；可以給相同的Variant分配不同的數(shù)據(jù)類型，只要Variant包含數(shù)字值就可以執(zhí)行算法；variant數(shù)組只不過是variant型的數(shù)組，不必包含同類型的數(shù)據(jù)；1、VarArrayOf函數(shù)：更快捷的創(chuàng)建一維變體數(shù)組，可以創(chuàng)建全異的數(shù)值數(shù)組；functionVarArrayOf(constValues:arrayofVariant):Variant;VarArrayOf是一種快速（寫代碼快而不是運行快）的方法生成一個一維Variant數(shù)據(jù)的方法，它接受一個Variant類型的OpenArray，用這個數(shù)據(jù)生成一個一維的VariantArrayofVariant（類型為Variant)。由于Delphi對OpenArray類型參數(shù)的支持，使你可以用一行語句生成一個數(shù)組。不過它有兩個缺陷：只能生成一維數(shù)組；只能生成元素類型是Variant的數(shù)組。使用Variant數(shù)組,與使用標(biāo)準(zhǔn)Delphi數(shù)組類似；例如：MyArray:=VarArrayOf(['李維'，30，'60',60.369,'China']);2、VarArrayCreate函數(shù)：functionVarArrayCreate(constBounds:arrayofInteger;VarType:TVarType):Variant;Bounds:告訴數(shù)組的上下界；VarType:決定了數(shù)組的中存儲什么類型的數(shù)據(jù)。其它的數(shù)組（如二維、或者其他類型等）只能用VarArrayCreate去創(chuàng)建，并用循環(huán)給元素賦值。例如：創(chuàng)建數(shù)組的數(shù)組,可以模仿任何類型的數(shù)據(jù)結(jié)構(gòu)類型：VarArrayX:=VarArrayCreate([1,10],varVariant);數(shù)組的單個元素可以裝載一個數(shù)組：VarArrayX[1]:=VarArrayCreate([1,5],varVariant);3、VarArrayHighBound、VarArrayLowBound函數(shù)：返回變體數(shù)組上/下限，從1開始（1：列；2：行；3：3維的最后一維）。functionVarArrayHighBound(constA:Variant;Dim:Integer):Integer;4、VarArrayRedim函數(shù)：修改variant數(shù)組的最高限。procedureVarArrayRedim(A:Variant;HighBound:Integer);5、VarArrayDimCount函數(shù)：返回variant數(shù)組維數(shù)unctionVarArrayDimCount(constA:Variant):Integer;//b是一個16行4列的二維數(shù)組b:=VarArrayCreate[0,3,1,16],varOleStr);I:=VarArrayHighBound(b,1);//I是b的最大列號：3；J:=VarArrayLowBound(b,1);//J是b的最小列號：0；K:=VarArrayHighBound(b,2);//K是b的最大行號：16；M:=VarArrayLowBound(b,2);//M是b的最小行號：1。end;注意，Variant數(shù)組下標(biāo)是列在前，行在后，元素類型是PWideChar，最大列號是3，最小列號是0，最大行號是16，最小行號是1。三、變體類型和流的相互轉(zhuǎn)換//1、變體類型轉(zhuǎn)成流procedureVariantToStream(constData:OleVariant;Stream:TStream);varp:Pointer;beginp:=VarArrayLock(Data);//加鎖，并返回一個指針指向的數(shù)據(jù)。避免運行時時刻檢查tryStream.Write(p^,VarArrayHighBound(Data,1)+1);//返回最大的列號finallyVarArrayUnlock(Data);//解鎖，使數(shù)組能重新移動或改變大小。end;end;//2、流轉(zhuǎn)成變體類型functionStreamToVariant(Stream:TStream):OleVariant;varp:Pointer;beginResult:=VarArrayCreate([0,Stream.Size-1],varByte);//創(chuàng)建一個以為的數(shù)組。類型為varBytep:=VarArrayLock(Result);try