проверьте и поправте ошибки please

259

18 апреля 2005 года

1.4K / / 03.12.2004

Цитата:

Originally posted by Mr. Nick
int i=-2;
AnsiString answer;
AnsiString memory;
AnsiString tmp;
//------------------------------------------------
Memo1->Lines->Add("Edit1->Text);
AnsiString str= Edit1->Text;
UpperCase(str);
ListBox1->Items->LoadFromFile("dialog.dll");
point:
i=i+2;

if (str==UpperCase(ListBox1->Items->Strings))
{
Memo1->Lines->Add(ListBox1->Items->Strings[i+1]);
}
else
goto point;

помогите узнать в чём тут дело..компилируетса но потом на строку :if (str==UpperCase(ListBox1->Items->Strings)) ругаетса :((((

а ели вы мне исходник простенького чат бота пришлёте сюда [email]N_I_C_K2004@mail.ru[/email] то вообще клёво будет

А вы про циклы вообще, что нибудь слышали????????
Увидев goto даже разбираться не хочу.
Это все очень плохо.

3.5K

18 апреля 2005 года

40 / / 01.01.2005

Цитата:

Originally posted by AlexandrVSmirno
А вы про циклы вообще, что нибудь слышали????????
Увидев goto даже разбираться не хочу.
Это все очень плохо.

может тогда напишешете мне то-же при помощи цикла сами а то я пробвал но получаетса та-же фигня

259

18 апреля 2005 года

1.4K / / 03.12.2004

Цитата:

Originally posted by Mr. Nick
может тогда напишешете мне то-же при помощи цикла сами а то я пробвал но получаетса та-же фигня

Свернуть исходник

Код:

AnsiString answer;

AnsiString memory;

AnsiString tmp;

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

Memo1->Lines->Add("Edit1->Text);

AnsiString str= Edit1->Text;

UpperCase(str);

ListBox1->Items->LoadFromFile("dialog.dll");

for(int i=0;i<ListBox1->Count-1;i+=2)

{

   if (str==UpperCase(ListBox1->Items->Strings) )

   {

      Memo1->Lines->Add(ListBox1->Items->Strings[i+1]);

   }

}

3.5K

18 апреля 2005 года

40 / / 01.01.2005

Цитата:

Originally posted by AlexandrVSmirno
Свернуть исходник

Код:

AnsiString answer;
AnsiString memory;
AnsiString tmp;
//------------------------------------------------
Memo1->Lines->Add("Edit1->Text);
AnsiString str= Edit1->Text;
UpperCase(str);
ListBox1->Items->LoadFromFile("dialog.dll");
for(int i=0;i<ListBox1->Count-1;i+=2)
{
if (str==UpperCase(ListBox1->Items->Strings) )
{
Memo1->Lines->Add(ListBox1->Items->Strings[i+1]);
}
}

одно большая просьба... можете поправить текст так чтоб в этом месте if (str==UpperCase(ListBox1->Items->Strings)) проверялось другое условие а именна поиск строки UpperCase(ListBox1->Items->Strings)
в строке str и если она присутствует то Memo1->Lines->Add(ListBox1->Items->Strings[i+1]);

и еще если по окончании цикла не одна строка не совпадёт то вывести сообщение Memo1->Lines->Add("no answer");
простите за приченённые неудобства

259

18 апреля 2005 года

1.4K / / 03.12.2004

Цитата:

Originally posted by Mr. Nick
одно большая просьба... можете поправить текст так чтоб в этом месте if (str==UpperCase(ListBox1->Items->Strings)) проверялось другое условие а именна поиск строки UpperCase(ListBox1->Items->Strings)
в строке str и если она присутствует то Memo1->Lines->Add(ListBox1->Items->Strings[i+1]);

и еще если по окончании цикла не одна строка не совпадёт то вывести сообщение Memo1->Lines->Add("no answer");
простите за приченённые неудобства

Свернуть исходник

Код:

AnsiString answer;

AnsiString memory;

AnsiString tmp;

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

Memo1->Lines->Add("Edit1->Text);

AnsiString str= Edit1->Text;

UpperCase(str);

ListBox1->Items->LoadFromFile("dialog.dll");

bool found = false;

for(int i=0;i<ListBox1->Count-1;i+=2)

{

   if (str.AnsiPos(UpperCase(ListBox1->Items->Strings) > 0 )

   {

      Memo1->Lines->Add(ListBox1->Items->Strings[i+1]);

      found = true;

   }

}

if(!found)

   Memo1->Lines->Add("No answer");

3.5K

18 апреля 2005 года

40 / / 01.01.2005

Цитата:

Originally posted by AlexandrVSmirno
Свернуть исходник

Код:

AnsiString answer;
AnsiString memory;
AnsiString tmp;
//------------------------------------------------
Memo1->Lines->Add("Edit1->Text);
AnsiString str= Edit1->Text;
UpperCase(str);
ListBox1->Items->LoadFromFile("dialog.dll");
bool found = false;
for(int i=0;i<ListBox1->Count-1;i+=2)
{
if (str.AnsiPos(UpperCase(ListBox1->Items->Strings) > 0 )
{
Memo1->Lines->Add(ListBox1->Items->Strings[i+1]);
found = true;
}
}
if(!found)
Memo1->Lines->Add("No answer");

не компилируетса кричит что

Build
[C++ Error] Unit1.cpp(72): E2064 Cannot initialize 'const AnsiString &' with 'bool'
[C++ Error] Unit1.cpp(72): E2342 Type mismatch in parameter 'subStr' (wanted 'const AnsiString &', got 'bool')
[C++ Error] Unit1.cpp(75): E2377 If statement missing )

помогитеееееееееееее щас застрелюсь

можете написать свой номер icq?

259

18 апреля 2005 года

1.4K / / 03.12.2004

Цитата:

Originally posted by Mr. Nick
не компилируетса кричит что

Build
[C++ Error] Unit1.cpp(72): E2064 Cannot initialize 'const AnsiString &' with 'bool'
[C++ Error] Unit1.cpp(72): E2342 Type mismatch in parameter 'subStr' (wanted 'const AnsiString &', got 'bool')
[C++ Error] Unit1.cpp(75): E2377 If statement missing )

помогитеееееееееееее щас застрелюсь

Сори при наборе одну скобочку пропустил

Свернуть исходник

Код:

AnsiString answer;

AnsiString memory;

AnsiString tmp;

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

Memo1->Lines->Add("Edit1->Text);

AnsiString str= Edit1->Text;

UpperCase(str);

ListBox1->Items->LoadFromFile("dialog.dll");

bool found = false;

for(int i=0;i<ListBox1->Count-1;i+=2)

{

   if (str.AnsiPos(UpperCase(ListBox1->Items->Strings)) > 0 )

   {

      Memo1->Lines->Add(ListBox1->Items->Strings[i+1]);

      found = true;

   }

}

if(!found)

   Memo1->Lines->Add("No answer");

3.5K

18 апреля 2005 года

40 / / 01.01.2005

Цитата:

Originally posted by AlexandrVSmirno
Сори при наборе одну скобочку пропустил
Свернуть исходник

Код:

AnsiString answer;
AnsiString memory;
AnsiString tmp;
//------------------------------------------------
Memo1->Lines->Add("Edit1->Text);
AnsiString str= Edit1->Text;
UpperCase(str);
ListBox1->Items->LoadFromFile("dialog.dll");
bool found = false;
for(int i=0;i<ListBox1->Count-1;i+=2)
{
if (str.AnsiPos(UpperCase(ListBox1->Items->Strings)) > 0 )
{
Memo1->Lines->Add(ListBox1->Items->Strings[i+1]);
found = true;
}
}
if(!found)
Memo1->Lines->Add("No answer");

sorry for troubling you again

я делаю чат бот но вот с этим проблема
if (str.AnsiPos(UpperCase(ListBox1->Items->Strings)) > 0 )

фтышзщы всегда почти принимает нулевое значение..
оно !=0 только когда я ввожу цифры

можете дать свой номер icq?

259

18 апреля 2005 года

1.4K / / 03.12.2004

Цитата:

Originally posted by Mr. Nick
sorry for troubling you again

я делаю чат бот но вот с этим проблема
if (str.AnsiPos(UpperCase(ListBox1->Items->Strings)) > 0 )

фтышзщы всегда почти принимает нулевое значение..
оно !=0 только когда я ввожу цифры

можете дать свой номер icq?

Он есть в моем профиле.

строчку if(....) нужно сделать так:

Код:

if (str.AnsiPos(ListBox1->Items->Strings.UpperCase()) > 0 )

Метод begstr.AnsiPos(AnsiString str) выдает позицию строки str в строке begstr. Если позиция равна 0, то строки str нет в строке begstr.