现在我要在Delphi里调用一个用.net写的函数,返回值是一个record,在Delphi里导入时变成了Variant类型,请问现在我要样才能把variant类型如何转化为record?我这里有一段代码,是处理这个的:
function TfrmMain.VariantToRecordset(const Value: OleVariant): _Recordset;
begin
With TVarData(Value) do
if VType = varDispatch then
Result := IDispatch(TVarData(Value).VDispatch) as _Recordset
else
Result := nil;
end;
但是转化成_Recordset,那要转化成record要怎样呢做?
function TfrmMain.VariantToRecordset(const Value: OleVariant): _Recordset;
begin
With TVarData(Value) do
if VType = varDispatch then
Result := IDispatch(TVarData(Value).VDispatch) as _Recordset
else
Result := nil;
end;
但是转化成_Recordset,那要转化成record要怎样呢做?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货