怎么把 Tobject转换成 char数组? Soc:Array[0..5] of ansichar;Soc := AContext.Data // AContext.Data 类型为Tobject怎样才能实现上面的赋值? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Soc:Array[0..5] of ansichar;你要保存的是 Tobject的地址吧, 它里边数据6个字节不一定够var T: TObject; P: Pchar;begin T := TObject.Create; p := @T; Caption := IntToHex(Integer(@T), 16) + ' | ' + IntToHex(Integer(P), 16); T.Free;end; 子类化 高价购买验证码识别系统 线程中使用非阻塞式SOCKET,切换输入法时造成死机!!! 问一个简单问题 哪位高人怎么知道如下的线程调用的运行错误? 新手学delphi,请大侠指点初学的基本好书,最好是电子教程,在线等!! 毕业设计遇到难题,请教分布式系统高手 怎样得到应用程序列表 大家來討論一下RS232編程是怎麼搞的,會的請進,不會的來學學。 一个有些跑题的问题,在作SERVER时,我很喜欢做成Console模式,这样感觉爽,你们是吗? 关于DBGrid显示问题 Look for Delphi Fans
你要保存的是 Tobject的地址吧, 它里边数据6个字节不一定够
var
T: TObject;
P: Pchar;
begin
T := TObject.Create;
p := @T; Caption := IntToHex(Integer(@T), 16) + ' | ' + IntToHex(Integer(P), 16);
T.Free;
end;