Не ругайтесь, это последний вопрос, я думаю... Как выполнить поиск в TМemo? Про поиск в ЛистБоксе rsm мне более-менее объяснил, за что ему отдельное спасибо. Осталось только понять, как же искать строчки в Memo, + разумеется, Memo должно "прокручиваться" до выделенного слова, а слово должно выделяться.

просто так искать не получится -- нет у него соотв. метода => берем memo->Lines->Text b и в нем или вручную ищем или Pos() с последующим удалением найденного текста
позиционирование: SelStart / SelLength

Цитата

последующим удалением найденного текста

А вот это еще нафига?! Мне не надо удалять! Мне надо найти! И выделить! Кстати, как выделять, я так и не въехал.... Хотя, может быть, вот так получится? (пишу сходу):

Код

AnsiString text=Memo1->Lines->Text; if(text.Pos(Form2->Edit1->Text)) {  ShowMessage("Найдено совпадение!");  int x=text.Pos(Form2->Edit1->Text);  Memo1->SelStart=x;  Memo1->SelLength=x+Form2->Edit1->Text.Length();  return; } ShowMessage("Нет совпадений... I'm very sorry...");

Цитата

А вот это еще нафига?

чтбы последующие вхождения найти ( а не только первое )

читаю тоже сходу...
кажись, должно получится. только к x-у длину текста приплюсовывать не нужно -- хватит и просто длины

Элементарно просто, как и все в С++ Builder
Если нужно реализовать пользовательский интерфейс, то достаточно использовать
TSearchFind или TSearchFindFirst. Даже кодировать ничего не придется

Ах, да. Я и забыл. Вы ведь сторонник делать все ручками
Тогда это не пойдет.

Цитата

чтбы последующие вхождения найти ( а не только первое )

Что-то я не совсем понял. Можете переделать мой код с вашими поправками?

Цитата

только к x-у длину текста приплюсовывать не нужно -- хватит и просто длины

Да, действительно, это я что-то не то...

Цитата

Вы ведь сторонник делать все ручками

Именно так. Я хочу научиться делать все своими руками, чтобы больше знать о языке и программировании вообще. А не пользоваться стандартными компонентами, где уже все реализовано и понимать ничего, кроме алгоритма решения задачи, не нужно.

Цитата(sim7 @ 4.10.2005, 18:42)

Цитата чтбы последующие вхождения найти ( а не только первое ) Что-то я не совсем понял.

есть строка aabbaa
как ты собираешся искать вторые aa без удаления первых?

Смысл понятен. Я имею в виду, что не совсем понял, как это написать. Я еще раз зайду завтра вечером, надеюсь, вы хоть-что нибудь напишете... Или просто алгоритм скажите, а код я сделаю (попробую сделать) сам. Так даже лучше будет.

Цитата(sim7 @ 4.10.2005, 18:42)

Именно так. Я хочу научиться делать все своими руками, чтобы больше знать о языке и программировании вообще. А не пользоваться стандартными компонентами, где уже все реализовано и понимать ничего, кроме алгоритма решения задачи, не нужно.

Вроде бы намерения хорошие, только вот реализация ... Я бы Вам для начала порекомендовал проштудировать книжку по С++ и по ООП. Дело в том, что судя по вашему коду Вы не учитесь, а усиленно закрепляете Ваши ошибки. А если уж хотите учится и не использовать стандартные компоненты, то почему используете TMemo вместо винконтролов, AnsiString -вместо std::string? И где Ваши собственные классы-адаптеры?
Пока имеем в наличии бестолковое использование опять же "стандартных" VCL-компонентов, причем "бестолковость" объясняется желаением сделать самому.

да какой алгоритм? сразу после Pos() делаем str.Delete(1, pos + searchStr.Length() - 1);
все

P.S.
если все своими руками делать -- тогда уже не std::string а char* юзать нужно

Цитата(_hunter @ 5.10.2005, 10:33)

если все своими руками делать -- тогда уже не std::string а char* юзать нужно

все таки std::string. STL входит в стандарт и не явлется чем то левым

Что-то не получается. Я ввел вот такой код (пока без ваших поправок, hunter):

Код

Form6=new TForm6(this);  if(Form6->ShowModal()==mrCancel) return;  AnsiString find=Memo1->Lines->Text;  if(find.Pos(Form6->Edit1->Text))  {   MessageBox(NULL,"Указанная строка обнаружена!","Информация",MB_ICONINFORMATION);   int x=Form6->Edit1->Text.Length();   Memo1->SelStart=find.Pos(Form6->Edit1->Text);   Memo1->SelLength=x;   return;  }  MessageBox(NULL,"Указанная строка не найдена.","Информация",MB_ICONINFORMATION);

Програ говорит, что "Указанная строка обнаружена". Однако, найденное не выделяет... Подскажите плиз почему и что надо поправить.

Vyacheslav, я в сотый раз повторяю. Какой бы хорошей книга не была, я не могу ее понять! У меня есть книги по C++, по C++ Builder, но я плохо понимаю, когда рядом нет учителя, у которого можно все разъяснить! А учителя-то у меня как раз и нет. Почему я и сижу на этом форуме и надеюсь на помощь через интернет... Поймите правильно мое положение. Я стараюсь, но раз не получается, то что я могу сделать?

Цитата

почему используете TMemo вместо винконтролов, AnsiString -вместо std::string

Потому что с объектами TMemo и типом AnsiString я познакомился раньше и уже умею хоть немного с ними работать. А другие указанные вами компоненты мне еще незнакомы. Зачем переучиваться? И еще. Раз уж вам так не нравится мое выражение "делать все своими ручками", то замените его на "смешанное программирование".

Цитата(sim7 @ 5.10.2005, 16:00)

то замените его на "смешанное программирование".

ОК . Я его заменю на "смешное программирование"

sim7, фокус ему отдай: Memo1->SetFocus();
или HideSelection в false поставь

Цитата

смешное программирование

Знаете, это мне перестает нравиться. То, что вы умеете, это, конечно, плюс вам. Но не нужно смеяться над теми, у кого не получается выучить!

hunter, сейчас буду пробовать, спасибо.
Добавлено @ 16:54
hunter, я понял, что надо вот так сделать:

Код

Form6=new TForm6(this);  if(Form6->ShowModal()==mrCancel) return;  AnsiString find=Memo1->Lines->Text;  if(find.Pos(Form6->Edit1->Text))  {   find.Delete(1,Form6->Edit1->Text.Length()-1);   MessageBox(NULL,"Найдено!","Инфо",MB_ICONINFORMATION);   int x=Form6->Edit1->Text.Length();   Memo1->SelStart=find.Pos(Form6->Edit1->Text)-1;   Memo1->SelLength=x;   return;  }  MessageBox(NULL,"Не найдено.","Инфо",MB_ICONINFORMATION);

Но так не работает. Выделяется только первое найденное.

потому что второе находится на "длина удаленного текста" + Pos() и эту переменную нужно не забывать увеличивать
+ странное удаление:
find.Delete(1,Form6->Edit1->Text.Length()-1);
в чем его смысл?
удалять нужно по Pos() + "длина искомого текста"

То ли я слишком тупой, то ли еще что... Напишите плиз мой переделанный код. А то мы так еще долго будем разбираться.

AnsiString find=Memo1->Lines->Text; -- эту строку нужно вынести куда-нить в начало процесса поиска
там же добавить int oldSelectionEnd = 0;

Код

Form6=new TForm6(this);      if(Form6->ShowModal()==mrCancel) return;         int pos = 0; AnsiString textToFind = Form6->Edit1->Text;  if( ( pos= find.Pos(textToFind) ) )      {       find.Delete(1, pos + textToFind.Length()-1);       MessageBox(NULL,"Найдено!","Инфо",MB_ICONINFORMATION);       Memo1->SelStart= oldSelectionEnd + pos-1;       Memo1->SelLength = textToFind.Length();     oldSelectionEnd += pos + textToFind.Length() -1;       return;      }      MessageBox(NULL,"Не найдено.","Инфо",MB_ICONINFORMATION);

примерно так ( писал на коленке )

Нет, не работает. Все равно ищет и выделяет только первое найденное. Свойство HideSelection у Memo1 выключено. Что еще подскажете? Может, как-нибудь организовать пошаговый поиск, т.е. переделать форму поиска. Поясняю. Нашел он одно совпадение - спрашивает, а искать ли дальше? Если да, ищет дальше. На вот этот спрос-ответ нужен код, я вряд ли с ним справлюсь сам... А форму я беру на себя.
Вот это я написал. Но, (см. выше), это не работает.

Код

Form6=new TForm6(this);  if(Form6->ShowModal()==mrCancel) return;  AnsiString text=Memo1->Lines->Text;  AnsiString text_to_find=Form6->Edit1->Text;  int select_len=0,position=0;  if((position=text.Pos(Form6->Edit1->Text)))  {   text.Delete(1,position+text_to_find.Length());   MessageBox(NULL,"Найдено!","Инфо",MB_ICONINFORMATION);   int x=Form6->Edit1->Text.Length();   Memo1->SelStart=select_len+position-1;   Memo1->SelLength=x;   return;  }  MessageBox(NULL,"Не найдено.","Инфо",MB_ICONINFORMATION);

2sim7: да не парься ты тогда...пиши посимвольный поиск,тогда и для понимания легче будет и удалять ничего не придется ...только вот не знаю как дела будут обстоять со скоростью...

само-собой не работает -- у тебя постоянно процесс поиска начинается.
если ты хочеш делать так, как описал -- форма должна быть не модальной. -- сделай ее fsStayOnTop

Нет-с, ошибку я нашел, но она не повлияла на результат. Я ее часто стал делать. Посмотрите в коде выше на инструкцию if. Там стоит одно = вместо двух. Но на результат, повторюсь, это не повлияло. Все равно ищет только первое вхождение. hunter, я вернулся к старому коду:

Код

Form6=new TForm6(this);  if(Form6->ShowModal()==mrCancel) return;  AnsiString text=Memo1->Lines->Text;  AnsiString text_to_find=Form6->Edit1->Text;  if(text.Pos(text_to_find))  {   MessageBox(NULL,"Указанная строка обнаружена!","Информация",MB_ICONINFORMATION);   Memo1->SelStart=text.Pos(text_to_find)-1;   Memo1->SelLength=text_to_find.Length();   text.Delete(1,text_to_find.Length());   return;  }  MessageBox(NULL,"Указанная строка не найдена.","Информация",MB_ICONINFORMATION);

Но это ищет опять-таки только первое вхождение. Дайте плиз проверенный и рабочий код, а то надоело мучаться. Мучаться бессмысленно надоело, то есть.

М	Я закрываю эту тему. Вам дали по этому вопросу полную консультацию. Если вопрос в том, что Вам нужно написать рабочий код за Вас, обращайтесь в Центр помощи Если желаете, я перенесу эту ветку туда