www.pudn.com > FastScript15.rar > set.cpp

/****************************/ 
/* FastScript v1.0          */ 
/* Set demo                 */ 
/****************************/ 
 
int i, j; 
string s; 
 
void OK(int n) 
{ 
  ShowMessage(n); 
} 
 
{ 
  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++; 
 
  OK(j); 
}