2014-11-21 37 views

回答

5

VarArrayAsPSafeArray()只是從Variant內部提取PSafeArray指針。你可以直接這樣做:

V := VarArrayCreate([0, High(a)], varByte); 
SafeArray := PSafeArray(TVarData(V).VArray);