Немного необычный поиск в TMemo

[RIO]

Здравствуйте, коллеги ! Есть процедура поиска и выделения строки в компоненте TMemo, как ее можно дополнить, что бы когда я нажимаю на кнопку ищется текст, а потом когда я нажимаю еще раз эту кнопку ищется текст далее . . . Это нужно для того, если в TMemo имеются два одинаковых слова, а эта процедура найдет лишь первое слово, а второго уже не найдет . . .

procedure TPrintBox.FindButtonClick(Sender: TObject);
var
I: Integer;
Find: string;
begin
Find := FindEdit.Text;
for I := 0 to PrintMemo.Lines.Count - 1 do
if Pos(Find, PrintMemo.Lines.Text) <> 0 then
begin
PrintMemo.SetFocus();
PrintMemo.SelStart := Pos(Find, PrintMemo.Lines.Text) - 1;
PrintMemo.SelLength := Length(Find);
end;
end;

[evg_m]

в D7 есть функция PosEx (поиск с указанием начальной позиции)

[RIO]

Да ! Спасибо ! Попробую !

[RIO]

Попробовал, всеравно что-то не получается, скорее всего я использую, как-то не почеловечески эту функцию :

var
Find: string;
begin
I := PrintMemo.SelStart;
Find := FindEdit.Text;
P := PosEx(Find, PrintMemo.Lines.Text, I);
if P > 0 then
begin
PrintMemo.SetFocus;
PrintMemo.SelStart := PosEx(Find, PrintMemo.Lines.Text, I) - 1;
PrintMemo.SelLength := Length(Find);
end;
end;

Подскажите пожалуйста, как правильно будет ?

[lexaltd]

var
  Form1: TForm1;
  i,p : Integer;
implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Find: string;
begin
  I := PrintMemo.SelStart+PrintMemo.SelLength;
  Find := Edit1.Text;
  P := PosEx(Find, PrintMemo.Lines.Text, I);
 if P > 0 then
  begin
   PrintMemo.SetFocus;
   PrintMemo.SelStart := p-1;
   PrintMemo.SelLength := Length(Find);
  end;
end;

[RIO]

Да, спасибо огромное

[RIO]

Вот немного подкорректировал, вот, что получилось :

var
  PrintBox: TPrintBox;
  I: Integer; 

procedure TPrintBox.FindButtonClick(Sender: TObject);
var
  P: Integer;
  Find: string;
begin
  if (PrintMemo.SelStart = 0) and (PrintMemo.CaretPos.X = 0) then
     I := 1
  else
  begin
     I := PrintMemo.SelStart + PrintMemo.SelLength;
     if I = Length(PrintMemo.Text) then
        I := 1;
  end;
  Find := FindEdit.Text;
  P := PosEx(Find, PrintMemo.Lines.Text, I);
  if P > 0 then
  begin
     PrintMemo.SetFocus;
     PrintMemo.SelStart := PosEx(Find, PrintMemo.Lines.Text, I) - 1;
     PrintMemo.SelLength := Length(Find);
  end;
end;

Еще вопрос, а можно каким-то образом найти текст снизу вверх ? Потомучто данный способ ищет с вверху вниз . . .

[Katerunka251290]

Уважаемый RIO, я вас очень сильно люблю, и очень сильно скучаю!!!!!!!!!! Пожалуйста, свяжитесь со мной!!!!!!! Мне вас очень сильно не хватает!!!!!!!!!!
С любовю Ваша Катя

[Katerunka251290]

Кстате, могу проконсультировать вас по последнему вопросу, но лучше будеть давать консультацию по аське если вы заинтерисовались, жду сообщений