[Delphi] 定义分组常量

Delphi 常量定义

通常在 Delphi 中定义常量时

const 
  FOO = 100;
  BAR = 200;
begin
  const BAZ = 'リコリス'; // インライン定数宣言
end;

就像是
（无论是否大写）

但有时您想定义一组常量。
例如

const
  CMD_FOO = 'foo';
  CMD_BAR = 'bar';
  CMD_BAZ = 'baz';

是时候像

按记录分组常量

高级记录类型可以有常量作为成员，就像类一样。
使用它，我们可以定义一个只有这样一个常量的记录：

type
  TCMDConsts = record
  public const
    FOO = 'foo';
    BAR = 'bar';
    BAZ = 'baz';
  end;

何时使用

if Foo = TCMDConsts.FOO then
  Writeln('Command is foo');

您可以使用“记录名称.常量名称”访问它。
分组方便理解！

将常量保存在一个地方

你可以在需要的时候声明一个常量，但是当你和很多人一起开发时，你可能会想，“这个常量是在哪里定义的？！”
在这种情况下，创建一个名为 uConstants 的 Unit 并在其中定义所有常量以使它们更容易找到。

分组常量在这里发挥作用。
例如

type
  // フォームの定数
  TFormConsts = record
  public const
    MAX_WIDTH = 1920;  // 最大幅
    MAX_HEIGHT = 1024; // 最大高さ
  end;

  // API コマンド
  TAPICommandConsts = record
  public const
    LOGIN = 'login';           // ログイン
    GET_INFO = 'getinfo.json'; // 情報取得
    SET_AVATAR = 'setavatar';  // アバター設定
  end;

通过将 like 分组，即使将常量分组到一个 Unit 中也更容易查看。
但是，由于使用它的地方和定义它的地方是分开的，所以有难以理解的情况，也有不理解的情况......

概括

如果定义了很多常量，一种方法是使用记录常量。

原创声明：本文系作者授权爱码网发表，未经许可，不得转载;

原文地址：https://www.likecs.com/show-308624522.html