Variant 转 Int64,该如何解决

Variant 转 Int64
怎么做?

[解决办法]
Variant类型的变量实际存储的是什么类型的值？或者贴一段代码上来。
[解决办法]

Delphi(Pascal) code

X就是一段内存var RePointer: Pointer;    begin  New(RePointer);  RePointer := VarArrayLock(ReValue);  CopyMemory(X的起始地址, RePointer, X的内存大小);  VarArrayUnlock(ReValue);end
[解决办法]
可以直接转换。
procedure TForm1.Button1Click(Sender: TObject);
var
 I64 :int64;
 V1 :Variant;
begin
 V1 := 123;
 I64 := V1;
 showmessage(IntToStr(I64));
end;