如果我新建一个枚举类型
type 
str= (JAN,FEB,MAY,APR);
如何根据下标取str的值,如果我新建一个字符串数组str : array[1..12] of string;
怎样初始化 

解决方案 »

  1.   

    str : array[1..12] of string;
    怎样初始化 str[1]:='JAN';
      

  2.   

      str:   array[0..1]   of   string  =   ( '1 ',   '2 ');
      

  3.   

    1#太麻烦了
    我用2#的方法报错procedure TForm3.FormShow(Sender: TObject);
    var
      dataStr : array[1..12] of variant= ('JAN','FEB','MAR','APR','MAY','JUN','JULY','AUG','SEP','OCT','NOV','DECE');
      
      

  4.   

    var
      dataStr : array[1..12] of variant= ('JAN','FEB','MAR','APR','MAY','JUN','JULY','AUG','SEP','OCT','NOV','DECE');全局变量
    要不
    const
        dataStr : array[1..12] of variant= ('JAN','FEB','MAR','APR','MAY','JUN','JULY','AUG','SEP','OCT','NOV','DECE');
      
      

  5.   

    报错阿:this type cannot initialized
      

  6.   

    type
      TMyStr = (msJAN,msFEB,msMAY,msAPR,...,msDEC);//12个const 
      MyStrArray : array [TMyStr] of string = ('JAN',...,'DEC');//12个 
      

  7.   

    function StrTo(s:string):TMyStr;
    var
      I:TMyStr;
    begin
      I:=Low(TMyStr);
      while I<=High(TMyStr) do
        if UpperCase(s) = UpperCase(ToStr(TMyStr(I))) then
          break;
        I:=Succ(I);
      end;
      if I>High(TMyStr) then
        result:=msDEC
      else
        result:=I;
    end;function ToStr(a:TMyStr):string;
    begin
      result:=MyStrArray[a];
    end;
      

  8.   


    var
      I: Integer;
      H: Integer;
      StrAry: array of string;
    begin
        H:= Integer(High(TFieldType));
        SetLength(StrAry,H + 1);
        for I:= 0 to H do
        begin
           StrAry[I]:= GetEnumName(TypeInfo(TFieldType),I);
        end;
    end;
      

  9.   

    忘了补充,TFieldType引用DB单元。