delphi ReplaceDialog 组件的使用

┾断┡ē誸

请各位大侠帮下忙 怎么实现ReplaceDialog  组件的区别 替换和全部替换啊 就是说怎么判断点了哪一个 谢谢了

aminghanhua

点击ReplaceDialog组件图标 里边有onfind和DialogReplace事件

1. procedure TForm1.ReplaceDialogFind(Sender: TObject);//替换窗体ReplaceDialog的onfind事件
   
2. var
   
3.   SearchType:TSearchTypes;//替换OnFind
   
4. begin
   
5.   with ReplaceDialog do
   
6.   begin
   
7.     if frMatchCase in Options then
   
8.       SearchType:=SearchType+[stMatchCase];
   
9.     if frWholeWord in Options then
   
10.       SearchType:=SearchType+[stWholeWord];
    
11.     PerformFind(Sender,FindText,SearchType);
    
12.   end;
    
13.   RichEdit.SetFocus;
    
14.   SendMessage(RichEdit.Handle,EM_SCROLLCARET,0,0);
    
15. end;
    
16. 
    
17. procedure TForm1.ReplaceDialogReplace(Sender: TObject); //替换框体的OnReplace事件
    
18. var
    
19.   SearchType:TSearchTypes;
    
20.   FoundAt, StartPos, ToEnd: Integer;
    
21.   str:string;
    
22.   label Start, Start1, Start2;
    
23. begin
    
24.   with ReplaceDialog do
    
25.   begin //1
    
26.   
    
27.     if frReplace in Options then
    
28.     begin//2
    
29.       if frMatchCase in Options then
    
30.         SearchType:=SearchType+[stMatchCase];
    
31.       if frWholeWord in Options then
    
32.         SearchType:=SearchType+[stWholeWord];
    
33. 
    
34.       if RichEdit.Seltext = ReplaceDialog.FindText then
    
35.       begin
    
36.         RichEdit.SelText:= ReplaceDialog.ReplaceText;
    
37.         Start1: StartPos:=RichEdit.SelStart+RichEdit.SelLength;
    
38.         ToEnd:= RichEdit.GetTextLen-StartPos;
    
39.         FoundAt := RichEdit.FindText(ReplaceDialog.FindText,StartPos,ToEnd,SearchType);
    
40. 
    
41.         if FoundAt<>-1 then
    
42.         begin
    
43.           RichEdit.SelStart:=FoundAt;
    
44.           RichEdit.SelLength:=Length(ReplaceDialog.FindText);
    
45.           if RichEdit.Seltext='' then
    
46.           begin
    
47.             RichEdit.Selstart:=RichEdit.Selstart+2;
    
48.             goto Start1;
    
49.           end;
    
50.           SendMessage(RichEdit.Handle, EM_SCROLLCARET, 0, 0);
    
51.         end
    
52.         else
    
53.         begin
    
54.           Str:= '找不到 '''''+ReplaceDialog.FindText+'''''';
    
55.           Application.MessageBox(PChar(Str),'记事本',MB_ICONINFORMATION);
    
56.         end;
    
57. 
    
58.       end
    
59.       else
    
60.       begin
    
61.         Start2: StartPos:=RichEdit.SelStart+RichEdit.SelLength;
    
62.         ToEnd:= RichEdit.GetTextLen-StartPos;
    
63.         FoundAt := RichEdit.FindText(ReplaceDialog.FindText,StartPos,ToEnd,SearchType);
    
64. 
    
65.         if FoundAt<>-1 then
    
66.         begin
    
67.           RichEdit.SelStart:=FoundAt;
    
68.           if RichEdit.Seltext='' then
    
69.           RichEdit.SelLength:=Length(ReplaceDialog.FindText);
    
70.           begin
    
71.             RichEdit.Selstart:=RichEdit.Selstart+2;
    
72.             goto Start2;
    
73.           end;
    
74.           SendMessage(RichEdit.Handle, EM_SCROLLCARET, 0, 0);
    
75.         end
    
76.         else
    
77.         begin
    
78.           Str:= '找不到 '''''+ReplaceDialog.FindText+'''''';
    
79.           Application.MessageBox(PChar(Str),'记事本',MB_ICONINFORMATION);
    
80.         end;
    
81.       end;
    
82.     end;
    
83. 
    
84.     if frReplaceAll in Options then
    
85.     begin
    
86.       if frMatchCase in Options then
    
87.         SearchType:=SearchType+[stMatchCase];
    
88.       if frWholeWord in Options then
    
89.         SearchType:=SearchType+[stWholeWord];
    
90.       if RichEdit.Seltext = ReplaceDialog.FindText then
    
91.          RichEdit.SelText:= ReplaceDialog.ReplaceText;
    
92.       FindTextOld:='';
    
93.       PerformFind(Sender,FindText,SearchType);
    
94. 
    
95.       while PerformFind(Sender,FindText,SearchType) do
    
96.       begin
    
97.         RichEdit.SelText:= ReplaceDialog.ReplaceText;
    
98.       end;
    
99.     end;
    
100. 
     
101.   end;
     
102.   RichEdit.SetFocus;
     
103.   SendMessage(RichEdit.Handle,EM_SCROLLCARET,0,0);
     
104. end;
     
105. 
     
106. procedure TForm1.ReplaceDialogFind(Sender: TObject);
     
107. var
     
108.   SearchType:TSearchTypes;//替换OnFind
     
109. begin
     
110.   with ReplaceDialog do
     
111.   begin
     
112.     if frMatchCase in Options then
     
113.       SearchType:=SearchType+[stMatchCase];
     
114.     if frWholeWord in Options then
     
115.       SearchType:=SearchType+[stWholeWord];
     
116.     PerformFind(Sender,FindText,SearchType);
     
117.   end;
     
118.   RichEdit.SetFocus;
     
119.   SendMessage(RichEdit.Handle,EM_SCROLLCARET,0,0);
     
120. end;

复制代码

aminghanhua

1. unction TForm1.PerformFind(Sender: TObject; FindString: String; SearchType: TSearchTypes):Boolean;//自定义过程，查找下一个
   
2. var
   
3.   FoundAt, StartPos, ToEnd: Integer;
   
4.   str:string;
   
5.   label Start;
   
6. begin
   
7.   if FindTextOld = FindString then
   
8.     with RichEdit do
   
9.     begin
   
10.       Start: StartPos:=SelStart+SelLength;
    
11.       ToEnd:=GetTextLen-StartPos;
    
12.       FoundAt:=FindText(FindString,StartPos,ToEnd,SearchType);
    
13.       if FoundAt<>-1 then
    
14.       begin
    
15.         SelStart:=FoundAt;
    
16.         SelLength:=Length(FindString);
    
17.         if Seltext='' then
    
18.         begin
    
19.           Selstart:=Selstart+2;
    
20.           goto Start;
    
21.         end;
    
22.         Result:=True;
    
23.       end
    
24.       else
    
25.       begin
    
26.         str:= '找不到 '''''+PChar(FindString)+'''''';
    
27.         Application.MessageBox(PChar(str),'记事本',MB_ICONINFORMATION);
    
28.         FindDialog.CloseDialog;
    
29.         Result:=False;
    
30.       end;
    
31.     end
    
32.   else
    
33.   begin
    
34.     FindTextOld:= FindString;
    
35.     Result:=True;
    
36.   end;
    
37. end;

复制代码

tlwangxd

写的好长啊