18 qwertqweqwe1

← разместить еще код

Расшаренный код:

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int nst,kolvo,maks=0,q;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, System::WideChar &Key)
{
if (Key==13)
{
ListBox1->Items->Add(Edit1->Text);

//Ввод в листбокс
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
nst=ListBox1->ItemIndex;
//Берется индекс выбранной строки
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{   q=0;
 AnsiString st=ListBox1->Items->Strings[nst];
//St присваивается выбранная строка
	 kolvo = st.Length();
//присваивается длина строки
	 for (int i = 1; i < (kolvo+1); i++) {
//Цикл от 1 до конца строки
	  if ((st[i]=='0')||(st[i]=='1')) {
	   q++;

	   if (maks<q) {
		   maks=q;
	   }
	  }
	 else q=0;
	 }

	 Label1->Caption ="Кол-во символов в самой большой группе ="+IntToStr(maks);
}

//---------------------------------------------------------------------------