【结贴】代码编译不了。case of 中应该是什么类型**

逆水的鱼

case LX of
    'FS':
      Result := '1';
    'FF':
      Result := '2';
    'SF':
      Result := '3';
    'SS':
      Result := '4';
  else
    Result := '1';
  end;
[错误]Biz:\OPERATION\XMGL\XMGL\XMRWYWXX.INFO.DIR\XMRWSJWG.FormDoc.pas(404, 5): Incompatible types: "Ordinal" and "String"

shangxy

LX是什么?数组么?贴出来看一下

zfang

一般语法应该为：   
  case   可选择表达式   of   
          常量：   语句1;   
            。               。;   
            。               。;   
            。               。;   
  else   
          语句   
  end;   
  表达式应为顺序数据类型。（整型/字符型/布尔型/子界型等都可以。）   
建议用整型是最合适的。   

更多帮助可以看delphi帮助或者网上找

lixy

可以看看delphi帮助。下面是我拷贝的
where selectorExpression is any expression of an ordinal type (string types are invalid) and each caseList is one of the following:

A numeral, declared constant, or other expression that the compiler can evaluate without executing your program. It must be of an ordinal type compatible with selectorExpression. Thus 7, True, 4 + 5 * 3, 'A', and Integer('A') can all be used as caseLists, but variables and most function calls cannot. (A few built-in functions like Hi and Lo can occur in a caseList. See Constant expressions.)
        A subrange having the form First..Last, where First and Last both satisfy the criterion above and First is less than or equal to Last.

A list having the form item1, ..., itemn, where each item satisfies one of the criteria above.

逆水的鱼

我case  里是字符的。编译不过去。
LX :String;
case LX of
    'FS':
      Result := '1';
    'FF':
      Result := '2';
    'SF':
      Result := '3';
    'SS':
      Result := '4';
  else
    Result := '1';
  end;
这就是全部代码。
提示错误：Incompatible types: "Ordinal" and "String"

lixy

string char  类型可不同哦！！

where selectorExpression is any expression of an ordinal type (string types are invalid) and each caseList is one of the following:

string types are invalid
string types are invalid
string types are invalid

逆水的鱼

那里类型不同了。

lisb

字符串不行，整型、字符型、布尔型、子界型可以

lisb

由于长时间没有回复，先结贴了，有问题请开新帖。