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

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