2

这种令人惊讶的行为的原因是什么,这似乎是在我将 Delphi 从 XE2 升级到 10.4.2 之后开始的,即空字符串属性值存储到 .DFM 文件中?

空字符串应该是属性的内置自动默认值,即不存储。

这发生在从 TWinControl 派生的两个组件中名为 Text 的字符串属性(一个直接,另一个通过 TCustomEdit)。可能是因为 TWinControl 派生自 TControl,它也有一个名为 Text 的属性,但类型为 TCaption 而不是字符串类型?这在 XE2 中是相同的,但与当时相比,现在 10.4 中“隐藏其他属性的属性”的处理方式可能不同?

我可以通过添加一个存储Text = ''的指令 + 一个函数来解决我的 .DFM 文件中不必要的问题——但我认为我真的不应该这样做,不是吗?

property Text: string read GetText write SetText stored IsTextStored;

function TMyComponent.IsTextStored: Boolean;
begin
  Result := Text <> '';
end;
4

0 回答 0