delphi - 如何在 Delphi 中将常量字符串分组在一起

Question

我的应用程序使用字符串来表示项目在其生命周期内可能处于的不同状态。

即

打开，积极的，关闭，删除，

等等，目前它们都被硬编码成这样的代码

MyVar := 'OPEN';

我正在努力改变它，因为它可能是一个维护问题，所以我想将它们全部更改为常量，我打算这样做

MyVar := STATUS_OPEN;

但我想将它们组合成一个数据结构，如下所示

MyVar := TStatus.Open;

在 delphi 2007 中执行此操作的最佳方法是什么？

我知道我可以为此做一个记录，但是如何用值填充它，以便系统中的所有对象都可以使用它，而不必每次都创建变量并填充值？

理想情况下，我希望数据结构和值有一个中心位置，并且可以轻松访问它们(例如 TStatus.Open)，而不必在每次使用时将其分配给变量或创建对象。

我确信有一个我只是缺少的简单解决方案。有什么想法吗？

Answer 1

正如 Jim 提到的，您可以使用类常量或枚举类型:

type
  TItemStatus = (isOpen, isActive, isClosed);
const
  ItemStatusStrings: array[TItemStatus] of string = ('Open', 'Active', 'Closed');