delphi - Delphi设置位标志

Question

在这里我有点深。

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

FCOPY
  Flags
    flShowProgress
    flConfirmation

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

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

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

有人可以告诉我如何使用Flags仅对大于5M的文件打开flShowProgress，然后对较小的文件再次关闭吗？

谢谢。

Answer 1

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

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