С++, проблема с подсчетом в строке

[Dima-91]

void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
	int n = 0, i, nst;
	nst = ComboBox1->ItemIndex;
	String st = ComboBox1->Items->Strings[nst];
	for (i = 0; i < st.Length(); i++)
	{
		if (( st[i] == ']') || (st[i] == '[') || (st[i] == '{') ||
		(st[i] == '}') || (st[i] == '(') || (st[i] == ')'))
		{
			n++;
		}
	}
	Edit1->Text = IntToStr(n);
}

Все компилируется, при нажатии на строку выдает ошибку "Range check error". Подскажите, что не так сделал.
В задании необходимо найти количество различных скобок в строке.

[Stilet]

nst = ComboBox1->ItemIndex;

Проверки на nst==-1 почему не ставишь?
Вообще трассировал код? На каком моменте ошибка?
Ты уверен что она именно в этой функции?

[waleri]

Я ставлю на nst

[Dima-91]

делал вывод в Memo какое значение получает nst после, все нормально.

nst = ComboBox1->ItemIndex;
Memo1->Lines->Add(IntToStr(nst));

так же в отладчике посмотрел пошагово, какое значение принимает nst.

попробовал еще такую наработку

	int n = 0, i, nst;
	nst = ComboBox1->ItemIndex;
	if (nst != -1)
	{
	String st = ComboBox1->Items->Strings[nst];
	for (i = 0; i < st.Length(); i++)
	{
		if (( st[i] == ']') || (st[i] == '[') || (st[i] == '{') ||
		(st[i] == '}') || (st[i] == '(') || (st[i] == ')'))
		{
			n++;
		}
	}
	}
	else ShowMessage ("nst = -1");
	Edit1->Text = IntToStr(n);

[Stilet]

Ну тады не скажу... Криминала в коде не видно.

[Dima-91]

Сообщение от Stilet

Ну тады не скажу... Криминала в коде не видно.

Может библиотек не хватает?

#include <vcl.h>
#pragma hdrstop
#include <string>

#include "zad7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)

{
	if(Key==13)
	{
		 ComboBox1->Items->Add(ComboBox1->Text);
		 ComboBox1->Text="";
	}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
	Form1->ComboBox1->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
	Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
	int n, i, nst;
	nst = ComboBox1->ItemIndex;
	if (nst != -1)
	{
	String st = ComboBox1->Items->Strings[nst];
	for (i = 0; i < st.Length(); i++)
	{
		if (( st[i] == ']') || (st[i] == '[') || (st[i] == '{') ||
		(st[i] == '}') || (st[i] == '(') || (st[i] == ')'))
		{
			n++;
		}
	}
	}
	else ShowMessage ("nst = -1");
	Edit1->Text = IntToStr(n);
}

это весь код

[Alex11223]

Какая версия Билдера? До ХЕ5 в билдеровских строках вроде с 1 индекс. (не путать с std::string, std::wstring, речь про AnsiString, WideString, UnicodeString, ..., String = AnsiString в версиях до 2009 и вроде UnicodeString после)

[Dima-91]

C++ Builder XE8.

#include <vcl.h>
#pragma hdrstop
#include <string>

#include "zad7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)

{
	if(Key==13)
	{
		 ComboBox1->Items->Add(ComboBox1->Text);
		 ComboBox1->Text="";
	}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
	Form1->ComboBox1->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
	Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
	int n, i, nst;
	nst = ComboBox1->ItemIndex;
	if (nst != -1)
	{
	String st = ComboBox1->Items->Strings[nst];
	for (i = 1; i < st.Length(); i++)
	{
		if (( st[i] == ']') || (st[i] == '[') || (st[i] == '{') ||
		(st[i] == '}') || (st[i] == '(') || (st[i] == ')'))
		{
			n++;
		}
	}
	}
	else ShowMessage ("nst = -1");
	Edit1->Text = IntToStr(n);
}

Решило проблему, но не пойму почему. Ведь как учат string с 0 начинается...

[Alex11223]

хм, мне казалось с ХЕ5 по умолчанию с 0 индексы строк. Ну раз нет, то еще в цикле < на <= поменять надо.

Ведь как учат string с 0

Читать до просветления

не путать с std::string, std::wstring, речь про AnsiString, WideString, UnicodeString, ..., String = AnsiString в версиях до 2009 и вроде UnicodeString после

[Dima-91]

В консоли, с 0 хорошо работает. В оконном с 1. Может в оконном у меня Unicode а в консоли ansistring используется)