|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.12.2011, 15:27 | #1 |
Регистрация: 03.12.2011
Сообщений: 7
|
C++: не могу разобраться...=(
Помогите пожалуйста написать прогу...не пойму...мне какая-то ошибка высвечивается...вот код:
#pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- AnsiString* strSplit(AnsiString buf, char delim, int &n) { n = 1; for (int i = 1; i <= buf.Length(); i++) if (buf[i] == delim) // считаем число символов delim n++; AnsiString* res = new AnsiString[n]; for (int j = 0; j < n; j++) { int p = buf.Pos(delim); if (p == 0) p = buf.Length()+1; res[j] = buf.SubString(1,p - 1); buf.Delete(1, p); } return res; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { int num = 0; int n; if (RadioButton1->Checked) { AnsiString abc = "йцк"; AnsiString s = Memo1->Text; AnsiString* str = strSplit(s, ' ', n); // получаем массив слов for (int j = 0; j < n; j++) for (int k = 1; k <= abc.Length(); k++) if (str[j][1] == abc[k]) { num++; break; } delete [] str; } if (RadioButton2->Checked) { AnsiString abc = "нгш"; AnsiString s = Memo1->Text; AnsiString* str = strSplit(s, ' ', n); // получаем массив слов for (int j = 0; j < n; j++) for (int k = 1; k <= abc.Length(); k++) if (str[j][1] == abc[k]) { num++; break; } delete [] str; } ShowMessage("Найдено слов: " + IntToStr(num)); } //--------------------------------------------------------------------------- void __fastcall TForm1::RadioButton1Click(TObject *Sender) { int num = 0; int n; AnsiString abc = "йцк"; AnsiString s = Memo1->Text; AnsiString* str = strSplit(s, ' ', n); // получаем массив слов for (int j = 0; j < n; j++) for (int k = 1; k <= abc.Length(); k++) if (str[j][1] == abc[k]) { num++; break; } delete [] str; } //--------------------------------------------------------------------------- void __fastcall TForm1::RadioButton2Click(TObject *Sender) { int num = 0; int n; AnsiString abc = "нгш"; AnsiString s = Memo1->Text; AnsiString* str = strSplit(s, ' ', n); // получаем массив слов for (int j = 0; j < n; j++) for (int k = 1; k <= abc.Length(); k++) if (str[j][1] == abc[k]) { num++; break; } delete [] str; } ну вот чего ему не хватает? |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
не могу разобраться! | Apsalon | Microsoft Office Excel | 1 | 28.12.2010 18:54 |
НЕ могу разобраться | Smagulov85 | БД в Delphi | 9 | 29.09.2010 16:13 |
[C++] Не могу разобраться ... | AquaticSoul | Общие вопросы C/C++ | 8 | 24.03.2010 16:23 |
Не могу разобраться | Zmaxer | Помощь студентам | 24 | 10.10.2009 18:52 |