DELPHI IN 用法

Question

原有語句
IF C_STR ='C' 
   OR C_STR='D'
   OR C_STR='M' THEN 
BEGIN
  …………
END 想寫為：
 IF  C_STR IN ['C','D','M'] THEN
  BEGIN
     ……
  END
無法編譯通過。請問大俠們，我應該如何 寫呢?

Answer 1

 IF C_STR[1] IN ['C','D','M'] THEN
  BEGIN
  ……
  END

Answer 2

C_STR 是字符串，你要取他的字符吧C_STR[1],第一个字符

Answer 3

StrUtils
case IndexText(C_STR,['C','D','E']) ofend;

Answer 4

 if (COPY(TRIM(edit3.Text),1,1) ='M' )
      OR (COPY(TRIM(edit3.Text),1,1) ='B' )
      OR (COPY(TRIM(edit3.Text),1,1)='T' )
      or ( strToInt(copy(trim(edit8.Text),1,2)) in [11,12,13] )  then
   begin
   …………
  END 
我的原句。

Answer 5

if (TRIM(edit3.Text)[1] in ['M','B','T']) or (strToInt(copy(trim(edit8.Text),1,2)) in [11,12,13] ) then  begin
  …………
  END