findialog da birsonraki yazıyı gecme

[delphikursu]

finddialogda arama işlemi yaptım ama arama işlemini bir kere yapıyor aynı kelimelieri bulmuyor sadece birini buluyor başkasını bulmuyor sanıl yapabilirim

[P206]

Selamlar,

Arama için bir buton koy.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  FindDialog1.Position := Point(RichEdit1.Left + RichEdit1.Width, RichEdit1.Top);
  FindDialog1.Execute;

end;

Kod: Tümünü seç

procedure TForm1.FindDialog1Find(Sender: TObject);
var
  Found: LongInt;
  Start, son: Integer;
begin
  with RichEdit1 do
  begin
    if SelLength <> 0 then

      Start := SelStart + SelLength
    else

      Start := 0;

    son := Length(Text) - Start;

    Found := FindText(FindDialog1.FindText, Start, son, [stMatchCase]);
    if Found <> -1 then
    begin
      SetFocus;
      SelStart := Found;
      SelLength := Length(FindDialog1.FindText);
    end;
  end;
end;

Bu kod senin istediğini işi yapacaktır.