1 Pos('WT',saleno);//在字符串saleno中寻找WT字符串,存在即返回位置Index(大于0),不存在即返回0
1 Copy(saleno,Length(saleno)-7,8);//从字符串saleno或截取最后8位字符串