~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm1.RearchAndReplace
(InSearch, InReplace: string) ;
var X, ToEnd : integer;
oldCursor : TCursor;
begin
oldCursor := 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 := oldCursor;
end;
procedure TForm1.Button1Click(Sender: TObject) ;
var
SearchText, ReplaceText: string;
begin
SearchText := 'Pascal';
ReplaceText := 'Delphi';
RearchAndReplace(SearchText, ReplaceText) ;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» What is being typed into the DBGrid?
« Hide caret (text cursor) "inside" TMemo component
