将variant类型转换成memory，类似的函数该怎么写呢？大侠们给点提示吧
如何将将variant类型转换成memory，类似的函数该怎么写呢？

[解决办法]
copymemory
[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
V: variant;
C: Currency;
begin
V := 123.45;
C := Currency(V);
ShowMessage(FloatToStr(C));
end;
[解决办法]
参见TVarData