delphi - Delphi 相当于向集合添加元素的 "+="是什么？

Question

在其他语言(例如 C++)中，有一些运算符可以执行加等于或或等于类型的操作来添加其他样式/标志。 Delphi 中有类似的东西吗？

现在我有一些代码，例如:

label1.Font.Style := label1.Font.Style + [fsBold];
label2.Font.Style := label2.Font.Style + [fsBold];

但如果可能的话，我希望将其简化为更简洁的内容，而无需在赋值运算符两侧重复标签名称，类似于:label1.Font.Style += [fsBold]; 或 label1.Font.Style := self + [fsBold];

这可以做到吗？或者没有那么多？

Answer 1

这是我可以推荐使用 with 语句的少数情况之一:

with label1.Font do Style := Style + [fsBold];
with label2.Font do Style := Style + [fsBold];

通常，with 的问题是不清楚什么是成员访问权限，什么不是，但如果作用域是使用单个属性的单个语句，那就足够清楚了.