case value of 问题

Question

回复人：　zswang(伴水)(伤心中)　(2001-12-8 11:47:13)  得0分 
OrdinalType -> (SubrangeType ¦ EnumeratedType ¦ OrdIdent)
OrdIdent -> SHORTINT        -> SMALLINT
        -> INTEGER
        -> BYTE
        -> LONGINT
        -> INT64
        -> WORD
        -> BOOLEAN
        -> CHAR
        -> WIDECHAR
        -> LONGWORD
        -> PCHAR  
回复人：　zswang(伴水)(伤心中)　(2001-12-8 11:50:00)  得0分 
var
  S: string;
begin
  S := 'AA';
  case S of //错string不是有序类型
    'AA': ;
    'BB': ;
  end;
end;//建议
var
  S: string;
begin
  S := 'AA';
  case Pos('¦' + S + '¦', '¦AA¦BB¦CC¦') of //变成整数类型//有序类型处理
//                        1234567890
    1: ;
    4: ;
    7: ;
  end;
end;