vb改成delphi

Question

Public Enum Minerals
  Ca = 1
  P
  Mg
  Cl
  K
  Na
  Su
  Co
  Cu
  Io
  Fe
  Mn
  Se
  Zn
  Mo
  VitA
  VitD
  VitE
End Enum 用delphi怎么写呢？然后如何调用呢?举个例子最好

Answer 1

这个是枚举，delphi中如下定义。
type
  TMinerals = (
                Ca = 1,
                P,
                Mg,
                Cl,
                K,
                Na,
                Su,
                Co,
                Cu,
                Io,
                Fe,
                Mn,
                Se,
                Zn,
                Mo,
                VitA,
                VitD,
                VitE
              );使用
定义枚举变量
var
  enum: TMinerals;
赋值
  enum := Ca;当然也可以做为函数的参数
procedure fun(enmu: TMinerals);