|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.12.2011, 15:58 | #1 |
Регистрация: 03.12.2011
Сообщений: 7
|
Ошибка!как это сделать?
#include <vcl.h>
#pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #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; } че ему не хватает???помогите пожалйста=)))заранее спасибо=) |
03.12.2011, 17:14 | #2 |
Форумчанин
Регистрация: 07.01.2010
Сообщений: 141
|
Напишите, чего вы хотите? Где у вас ошибка и в чем она заключается?
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
КАК ЭТО СДЕЛАТЬ???? | ЛЮБОЧК@ | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 13.05.2011 21:58 |
как это сделать? | salair | Помощь студентам | 0 | 30.04.2011 19:40 |
Как это сделать? | cargo29 | Общие вопросы Delphi | 2 | 26.01.2011 18:04 |
Как это сделать? | Sensizu | Общие вопросы Delphi | 11 | 04.01.2010 13:33 |
как это сделать? | DeDoK | Общие вопросы Delphi | 2 | 11.07.2008 04:41 |