为什么我的德尔福接受下一个私有声明什么？

Question

我是一名学生，德尔福是不是真的我对编程主环境。我知道它是如何工作的，我完全熟悉其布局。我最近收到的，我有使用数组，以列出它们在通过整数和字符串列表框的任务。这个想法非常简单，程序本身很容易。

问题是当我尝试申报的私人或公共它只是显示和错误信息，说明在恒定的“预期‘END’，而是‘CONST’发现”。我现在已经与公共和私营变量和常量工作了一段时间，但我真的不知道发生了什么事情。

代码如下：

type
  TForm1 = class(TForm)
    edtDateTime: TEdit;
    lstListArrayValues: TListBox;
    gbpIntegerArrayOptions: TGroupBox;
    gbpStringArrayOptions: TGroupBox;
    gbpListBoxOptions: TGroupBox;
    btnInitializeIntArray: TButton;
    btnAssignIntArray: TButton;
    btnDoubleIntArray: TButton;
    btnInitializeStrArray: TButton;
    btnAssignStrArray: TButton;
    btnCapitalStrArray: TButton;
    btnDisplayArray: TButton;
    btnClearListbox: TButton;
    btnDeleteSelected: TButton;
    XPManifest1: TXPManifest;
    procedure FormCreate(Sender: TObject);
    procedure btnInitializeIntArrayClick(Sender: TObject);

    private
    {Private Declarations}
      Const
        nItems = 5;
      var
        nBasicsIntArray : array [0..(nItems - 1)] of integer;
        nBasicsStrArray : array [0..(nItems - 1)] of string;
    public
      { Public declarations }
  end;

当我运行应用程序，它说“‘END’，但却‘CONST’发现”。我使用的是Windows 7和Delphi 7，我以前没有这个问题。

它可以诚实是我失去了一些东西愚蠢的，但我忽略了一切，我似乎无法找到问题的原因。

Answer 1

声明一个类中的常量的能力，在Delphi 7不支持，在以后的版本中添加的语言特性。

声明类以外的常数。

同样是你使用var的真实。这句法是不是在Delphi 7的支持，您应该简单地从你的类声明中删除var关键字。

Answer 2

正如上面写的，一个解决方案可以到您当地的不断移动到全球的地位德尔福7这里是下一个代码示例：

Const
    nItems = 5;
type
  TForm1 = class(TForm)
    edtDateTime: TEdit;
//...
  private
      nBasicsIntArray : array [0..(nItems - 1)] of integer;
      nBasicsStrArray : array [0..(nItems - 1)] of string;
//...
  end;

你也可以使用“常量”和“类型”的关键字多次以保持东西放在一起。