[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:

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

[Aristarh Dark]

Вообще-то я имел в виду вот это:

Код:

procedure TForm1.MFind(Value:String;Obj:TMemo);
var
  FPos:integer;
begin
  FPos:=pos(Value,Obj.Lines.Text);
  while FPos>0 do
    begin
      Obj.SelStart:=FPos-1;
      Obj.SelLength:=Length(Value);
      if MessageDlg('Ïðîäîëæèòü?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
        FPos:=PosEx(Value,Obj.Lines.Text,FPos+1)
      else
        FPos:=0;
    end;
end;

[kenzo]

Посмотри мой проект я хочу чтобы я выберал в ComboBoxe текст и он его выделял в Мемо помоги пожалуйста

[Aristarh Dark]

Вот твой проект с поиском. Жду бабло

[kenzo]

Aristarh Dark
что то не работает ссылается на это
FPos:=PosEx(Value,Obj.Lines.Text,FPos+1)

[Error] Unit2.pas(42): Undeclared identifier: 'PosEx'