[kenzo]

Здраствуйте помогите осуществить поиск в тексте в Мемо
и чтобы было событие далее он дальше искал
Заранее спасибо

[Aristarh Dark]

Pos, PosEx

[kenzo]

[b]Aristarh Dark по подробнее опиши пожалуйста[\B]

[Redstason]

a := Pos('WO', Memo1.Lines[i]);
if a > 0 then есть WO в строке Memo1.Lines[i]

[kenzo]

Redstason по подробнее опиши пожалуйста
разве 2 строчки всего нужно?
я просто начинающий

[Redstason]

Код:

procedure TForm1.Button1Click(Sender: TObject);
 var
  a,i:integer;
begin
 i:=0;
 while (i<=Memo1.Lines.Count) do
  begin
   a := Pos('сейчас', Memo1.Lines[i]);
   if a > 0 then ShowMessage ('Нашел <<сейчас>> в строке № '+IntToStr(i+1)+'. Строка: '+Memo1.Lines[i]);
  Inc(i);
  end;
end;

Текст Мемо.Lines:

Вот
я сейчас
напишу текст сейчас