Variant 转 Int64

Question

怎么做?

Answer 1

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

Answer 2

X就是一段内存
var
 RePointer: Pointer;
begin
  New(RePointer);
  RePointer := VarArrayLock(ReValue);
  CopyMemory(X的起始地址, RePointer, X的内存大小);
  VarArrayUnlock(ReValue);
end

Answer 3

可以直接转换。
procedure TForm1.Button1Click(Sender: TObject);
var
  I64 :int64;
  V1 :Variant;
begin
  V1 := 123;
  I64 := V1;
  showmessage(IntToStr(I64));
end;