指针变量如何转化为oleVariant(100)

  • 主题发起人 主题发起人 liuguilg
  • 开始时间 开始时间
L

liuguilg

Unregistered / Unconfirmed
GUEST, unregistred user!
指针变量如何转化为oleVariant, 赋值给oleVariant类型的变量
 
procedure TForm1.btn1Click(Sender: TObject);var i:Integer; p:Pint; Oa:oleVariant;begin i:=1000; p:=@i; Oa:=p^; Self.Caption:=VarToStr(Oa);end;//没完全明白你的意思,就按照自己理解的写了下
 
你是要指针指向的内容 还是指针本身的地址值如果是地址值,直接olev:=integer(pointer)就行如果是指针内容,那么就要自己吧内容都取出来在复制到olevar变量内存里了
 
后退
顶部