Delphi Tips

RichEdit Search and Replace

 
The following will Search for a String and replace it with Replacement String in RichEdit


procedure TForm1.RearchAndReplace(InSearch,
                                    InReplace: string);
var X, ToEnd   : integer;
   Save_Cursor : TCursor;
begin
  Save_Cursor := Screen.Cursor;
  Screen.Cursor := crHourglass;
  with RichEdit1 do
  begin
    X := 0;
    ToEnd := length(Text);
    X := FindText(inSearch, X, ToEnd, []);
    while X <> -1 do
    begin
      SetFocus;
      SelStart := X;
      SelLength := length(inSearch);
      SelText := InReplace;
      X := FindText(inSearch, X + length(InReplace),
                    ToEnd, []);
    end;
  end;
  Screen.Cursor := Save_Cursor;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SearchText, ReplaceText: string;
begin
  SearchText := 'large';
  ReplaceText := 'small';
  RearchAndReplace(SearchText, ReplaceText);
end;
 

Back to Index of Tips