这是一段获取THtmlEdit字体类型FontStyle的代码，执行时 l := 0; h := 15，当执行到最后时，系统报错“Invalid Variant Type”，之前我以为是l或h的界标出问题，当我手动改为 for i := 0 to 14或更小的数值，系统仍然报错，请问是哪里出了问题？ procedure THTMLEdit.GetStyles; var varRange : OleVariant; b : TBStr; a : PSafeArray; l, h, i : LongInt; hr : HRESULT; begin TVariantArg(VarRange).VT := VT_ARRAY; // VarArray or VarOleStr; TVariantArg(VarRange).ppArray := nil; hr := HrExecCommand(IDM_GETBLOCKFMTS, null, VarRange, false, false); // OleCheck(hr); if (hr = 0) then begin l := VarArrayLowBound(VarRange, 1); h := VarArrayHighBound(VarRange, 1); a := TVariantArg(VarRange).pArray; for i := l to h do begin SafeArrayGetElement(a, i, b); FStyles.Add(OleStrToString(b)); end; end; end; 兵临城下，快活如故。

------
兵临城下，快活如故。

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.