0

Как реализовать поиск далее по memo при повторном нажатии кнопки?

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  Find:string;
  i:integer;
begin
  find:='""';
for i:=0 to Memo1.Lines.Count-1 do
if Pos(FIND, Memo1.Lines.Text)<>0
then
begin
  Memo1.SetFocus();
  Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text);
end;
end;
1
  • Возможно несколько вариантов. Попробуйте в цикле сравнивать значение pos(...) и selStart, например. Commented 21 дек. 2014 в 16:09

1 ответ 1

1

Сохраняйте текущее положение (строку) в переменную и при новом поиске начинайте его с этого места (строки).

Если нужен последовательный поиск в той же строке, используйте PosEx он как раз принимает положение начала поиска.

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.