定义枚举类型出错.这是为什么..

Question

T3DEffect=(Normal,Raised,Lowered,Shadowed);
出现这样的错误:[Error]  ',' or ':' expected but '=' found

Answer 1

不可能,你应该到var下面了,看我的定义type
  T3DEffect=(Normal,Raised,Lowered,Shadowed);
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { 私有成员（变量、函数）声明 }
  public
    { 公共成员（变量、函数）声明 }
  end;var
  Form1: TForm1;
implementation

Answer 2

type
  TEnums = (Enum1,Enum2,Enum3);
var
  MyArr: array[TEnums] of string;

Answer 3

怎么会这样的..[Quote=引用 3 楼 chenzhuo 的回复:]不可能,你应该到var下面了,看我的定义
Delphi(Pascal) codetype
TForm1 = class(TForm)
  T3DEffect=(Normal,Raised,Lowered,Shadowed);
这样写就出错.把TForm1 = class(TForm)写在前面就会出错的?

Answer 4

晕,你跑到TForm1里面去做什么?
这样定义啊
type
  T3DEffect=(Normal,Raised,Lowered,Shadowed);
  TForm1 = class(TForm)

Answer 5

也可以紧接着Var上边写嘛type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { 私有成员（变量、函数）声明 }
  public
    { 公共成员（变量、函数）声明 }
  end;  T3DEffect=(Normal,Raised,Lowered,Shadowed);var
  Form1: TForm1;
implementation

Answer 6

就是不能定义在 TForm1 = class(TForm) .... end;里边

Answer 7

必须在type里定义，你那个跑到类声明里面去了

Answer 8

TForm1是一个完整的类的定义,你非要插入其他的类型定义到里面肯定不行啦.
TForm1是隐藏了published 域的,完整的定义是:  
  //类的定义开始
  TForm1 = class(TForm)
  published
    Button1: TButton;
    //这里不是用来给你定义的,这里放的是类的成员
  private
    { 私有成员（变量、函数）声明 }
  public
    { 公共成员（变量、函数）声明 }
  end;
  //类的定义结束
  //从TForm1开始到这里就是一个完整的类定义
  //你要声明的枚举类型可以在这后面,也可以在TForm1前面