Delphi设置位标志

这有点超出我的理解力

我使用的组件在对象检查器中有一些标志

FCOPY
  Flags
    flShowProgress
    flConfirmation

我需要根据所复制文件的大小更改flShowProgess

if FileSize(aFilename) > 500000 then 
  FCOPY.Flags.flShowProgress:=True else
  FCOPY.Flags.flShowProgress:=False;

很明显，这并不适用于编译。我已经做了大量的搜索来寻找一些例子，但我真的不知道我需要用什么确切的术语来找到如何做到这一点

有人能告诉我如何使用这些标志来打开flShowProgress（仅适用于大于5M的文件），然后再关闭较小的文件吗

---

谢谢。

假设flags是set类型的属性

    if FileSize(aFilename) > 5000000 then  // bytes!
      FCOPY.Flags:=FCOPY.Flags+[flShowProgress]
    else
      FCOPY.Flags:=FCOPY.Flags-[flShowProgress]

---

假设flags是set类型的属性

    if FileSize(aFilename) > 5000000 then  // bytes!
      FCOPY.Flags:=FCOPY.Flags+[flShowProgress]
    else
      FCOPY.Flags:=FCOPY.Flags-[flShowProgress]

---

请显示类型定义请显示类型定义谢谢，我缺少方括号。经过大约20次不同的尝试，我几乎完全正确，但方括号是关键。非常感谢。他们将元素（枚举）更改为集合。（指enum）。在你的头脑中始终清楚什么是类型的东西。这是理解打字语言的关键。谢谢，我错过了方括号。经过大约20次不同的尝试，我几乎完全正确，但方括号是关键。非常感谢。他们将元素（枚举）更改为集合。（指enum）。在你的头脑中始终清楚什么是类型的东西。它是理解类型化语言的关键。