set.cpp

脚本处理控件源码,支持的脚本格式有:Pascal,C++,JScript,Basic

/****************************/
/* FastScript v1.0          */
/* Set demo                 */
/****************************/

int i, j;
string s;

{
  s = "Hello World!\n\rIt's working!";

  j = 0;
  for(i = 1; i <= Length(s); i++)
    if (s[i] in [" ", "!", Chr(0x0)..Chr(0x1f), "'"])
      j++;

  ShowMessage(j);
}