delphi - Delphi 设置位标志

Question

有点超出我的深度。

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

FCOPY
  Flags
    flShowProgress
    flConfirmation

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

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

显然这不会编译。我进行了大量搜索以找到一些示例，但我真的不知道我需要使用哪些确切的术语来查找如何执行此操作。

有人可以告诉我如何用标志做我需要的事情，只为大于 5M 的文件打开 flShowProgress，然后再为较小的文件关闭？

谢谢你。

Answer 1

假设标志是类型集的属性。

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