Подсчет слов в мемо1

if (ispunct() || isspace()) {...}

bool __fastcall symbol_is_letter( TCHAR s ) {
    return ( s >= 'a' && s <= 'z' ) || ( s >= 'A' && s <= 'Z' ) ||
                   ( s >= L'а' && s <= L'я' ) || ( s >= L'А' && s <= L'Я' ) ||
                   ( s >= '0' && s <= '9' );
}
// ---------------------------------------------------------------------------
void __fastcall TForm1::btn1Click( TObject *Sender ) {
    unsigned count = 0, in_word = 0;
 
    for ( size_t i = 1; i < memo->Text.Length( ); ++i ) {
        if ( symbol_is_letter( memo->Text[i] ) ) {
            if ( !in_word ) {
                ++count;
                in_word = 1;
            }
        }
        else {
            if ( in_word ) {
                in_word = 0;
            }
        }
    }
    lbl1->Caption = "amount of words in text - " + IntToStr( count );
}

#include <ctype.h>
#include <stdio.h>
 
int main(void)
{
  char ch;
  int k = 0;
  for(;;) {
    ch = getc(stdin);
    if(ch == '.') break;
    if(!isalnum(ch)) k++;
    printf("%i", k);
  }
 
  return 0;
}

#include <iostream.h>
 
int main(void)
{
  char ch;
  int k = 0;
  for(;;) {
    ch = getc(stdin);
    if(ch == '.') break;
    if(!isalnum(ch)) k++;
  }
  printf("%i", k+1);
  system ("pause>>void");
 
  return 0;
}