delphi - float 属性默认非零，有可能吗？

Question

我想在我的组件中使用 float 属性，但将其设置为某个非零默认值(假设它是 1000.0)。如果我尝试在 Create 中执行此操作，该属性会开始表现得很疯狂，因为默认值将其 float 为 0(请参阅classes.TWriter.WriteProperty.WriteFloatProp.IsDefaultValue)，因此当我使用0在表单设计器中，delphi不保存这个值(在这种情况下是默认值)，但是我的Create会在下次加载组件时将其设置为1000.0，所以实际上我有我没有的值放。

问题是无法使用“default”指令设置默认值(编译器表示“默认值必须是序数、指针或小集合类型”)，而且也是不可能的强制使用存储指令进行存储，它不起作用(Delphi 5)

那么有机会找到解决方法吗？

谢谢

最大

Answer 1

也许您可以使用stored指令:

property MyFloat: Float read GetValue write SetValue stored IsMyFloatStored;

使用 bool 函数IsMyFloatStored，当且仅当 MyFloat 没有默认值时返回 True。