问

Delphi设置位标志

yymse17883 发布于 2023-02-14 00:18

深度

我的深度有点偏僻.

我正在使用Object Inspector中包含一些Flags的组件...

FCOPY
  Flags
    flShowProgress
    flConfirmation

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

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

显然不会编译.我做了一些搜索以找到一些例子,但我真的不知道我需要用来找到如何做到这一点的确切术语.

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

谢谢.

1 个回答

假设flags是类型set的属性.

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

2023-02-14 00:52 回答

个信2602881723

撰写答案

今天，你开发时遇到什么问题呢？

立即提问

热门标签