德尔福处理否定

Question

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

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

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

你能建议我出路吗？

Answer 1

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

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

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

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

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