delphi的字符串不能用in，也不能用case xx of。要么老老实实地写: if tmpstr'10' and tmpstr'11' and tmpstr'12' then begin end;要么，const ss:array[1..3] of string=('10','11','11');var iCount:integer;var exists:boolean;
exists:=false;for iCount:=low(ss) to high(ss) dobegin
if tmpstr=ss[iCount] then ...
