поиск слова в мемо

[mitiay]

Такая проблема ищу слово в мемо:

var// Объявляем переменные
  Find: String; // Искомая строка
  i: Integer; // Счетчик для цикла
begin
  find := '1C';// Записываем в find текст из Edit
  for i := 0 to Memo2.Lines.Count-1 do// Запускаем цикл поиска строки
  If Pos(FIND, Memo2.Lines.Text)<> 0 then
showmessage('1');

Проблема в том что повторяется постоянный цикл!Выходит 10000 сообшений.Так вот как сделать чтоб после поиска цикл останваливался

[Serge_Bliznykov]

Вы вообще ищете НЕ ВЕРНО!
Цикл у Вас совсем не нужен (и не задействован)

так можно проверить, если ли нужная подстрока в тексте мемо2:

var// Объявляем переменные
  Find: String; // Искомая строка
begin
  find := '1C';// Записываем в find текст из Edit
  If Pos(Find, Memo2.Lines.Text)<> 0 then
          showmessage('1');
end;

[Аватар]

А что надо то? Если найти первое вхождение - убери вообще цикл, если при этом важно знать в какой строке, то цикл оставить и поиск не в Text, а в Strings[i] и после первого вхождения Break

[Человек_Борща]

  If Pos(FIND, Memo2.Lines[i])<> 0 then
showmessage('1');

Вы ищите во всем тексте а не в конкретной строке.

[mitiay]

Нужно сделать так выполняется поиск, если нашел цикл останвливается, если не нашел цикл оставливается.В общем чтоб действие выполнялось один раз

[evg_m]

if pos(...)>0 then begin
  r:=MessageDlg('Нашли!', 'Продолжить поиск?', mtInformation, [mbYes, mbNo], 0);
  case r of
  mryes: ;
  mrno: break;  // что это смотри здесь 
  end;
end;