德尔福处理否定

发布时间：2020-12-15 04:29:57 所属栏目：大数据来源：网络整理

导读：我正在研究delphi XE5中的一个项目. 使用相同的功能在运行时创建不同的弹出菜单. 每次使用Tcomponent类中的“Handle”弹出名称. popupname := 'XYZ' + IntToStr(handle); 在某些系统上,我将“Handle”值设为负值,当我尝试将“ – ”符号命名为组件时,我收到

我正在研究delphi XE5中的一个项目.
使用相同的功能在运行时创建不同的弹出菜单.
每次使用Tcomponent类中的“Handle”弹出名称.

popupname := 'XYZ' + IntToStr(handle);

在某些系统上,我将“Handle”值设为负值,当我尝试将“ – ”符号命名为组件时,我收到错误消息
“XYZ-5645不是有效的组件名称”

你能建议我出路吗？

解决方法

您可以将句柄视为指针,而不是接受有符号整数的IntToStr,因此将数值表示为十六进制：

popupname := Format('XYZ%p',[Pointer(Handle)]);

这是有道理的,因为Windows中的句柄是头文件中定义的无类型指针void *.

作为额外的好处,您的代码现在在32位和64位平台上都是正确的.

在框外思考,也许该组件根本不需要名称.如果是这样,请删除此代码,将其保留为无人值守,从而解决您的问题.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!