piromanas

void __fastcall TForm1::GenerateClick(TObject *Sender)
{
        int size, count=0, pos, count1=0;
        String str, zodis;
        str = Edit1->Text ;
        int loc = str.Pos(' ');
        str.Delete(0,6) ;
        size = zodis.Length() ;
        TMemo->Text = str ;*/
        int first = loc - 1;
        std::stringstream ss;
        ss << str.c_str() ;
        while (ss >> zodis.c_str()) {

            size = zodis.Length() ;
            if (size == first){
              count++;
          }
    }
    TMemo->Text = String(count) ;
}