unit1.pas

利用Delphi编写的几个对话框程序

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    FindDialog1: TFindDialog;
    ReplaceDialog1: TReplaceDialog;
    RichEdit1: TRichEdit;
    OpenDialog1: TOpenDialog;
    ButtonOpen: TButton;
    ButtonReplace: TButton;
    ButtonFind: TButton;
    procedure FindDialog1Find(Sender: TObject);
    procedure ReplaceDialog1Find(Sender: TObject);
    procedure ReplaceDialog1Replace(Sender: TObject);
    procedure ButtonOpenClick(Sender: TObject);
    procedure ButtonReplaceClick(Sender: TObject);
    procedure ButtonFindClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FindDialog1Find(Sender: TObject);
var
FoundPos,
StartPos,
EndPos : integer;
begin
if RichEdit1.SelLength  <> 0 then
  StartPos :=RichEdit1.Selstart+RichEdit1.SelLength
else
StartPos:=0;
EndPos:=Length(RichEdit1.TEXT)-StartPos;
if FoundPos <> -1 then
begin
RichEdit1.SetFocus;
RichEdit1.SelStart:=FoundPos;
RichEdit1.SelLength:=Length(FindDialog1.FindText);
end;

end;

procedure TForm1.ReplaceDialog1Find(Sender: TObject);
var
 Foundpos,
 StartPos,
 EndPos :integer;

begin

if RichEdit1.SelLength <> 0 then
StartPos:=RichEdit1.selstart + RichEdit1.SelLength
else
Startpos:=0;
EndPos:=Length(RichEdit1.Text)-StartPos;
FoundPos:=RichEdit1.FindText(ReplaceDialog1.FindText,StartPos,
EndPos,[stMatchCase]);
if FoundPos <> -1 then
begin
RichEdit1.SetFocus;
RichEdit1.SelStart:=FoundPos;
RichEdit1.SelLength:=Length(ReplaceDialog1.FindText);
end;


end;

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
var
 Foundpos,
 StartPos,
 EndPos :integer;
begin
StartPos:=RichEdit1.SelStart;
RichEdit1.SelText:=(ReplaceDialog1.ReplaceText);
RichEdit1.SelStart:=StartPos ;
RichEdit1.SelLength:=Length(RePlaceDialog1.ReplaceText);
  with Sender as TReplaceDialog do
  if frReplaceALL in Options THEN
begin
  Repeat
   if RichEdit1.SelLength <> 0 then
     StartPos :=RichEdit1.SelStart + RichEdit1.SelLength
    Else
   StartPos:=0 ;
   EndPos:=Length(RichEdit1.Text)-StartPos;
   FoundPos:=RichEdit1.FindText(ReplaceDialog1.FindText,StartPos,EndPos,[stMatchCase]);
   if FoundPos <> -1 then
 begin
 RichEdit1.SetFocus;
 RichEdit1.SelStart:=FoundPos;
 RichEdit1.SelLength:=Length (ReplaceDialog1.FindText);
 StartPos:=RichEdit1.SelStart;
 RichEdit1.SelText:=(ReplaceDialog1.ReplaceText);
 RichEdit1.SelStart:=Length(ReplaceDialog1.ReplaceText);
 end;
  Until FoundPos= -1 ;
  end;
  end;

procedure TForm1.ButtonOpenClick(Sender: TObject);
begin
if OpenDialog1.execute  then
    RichEdit1.lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.ButtonReplaceClick(Sender: TObject);
begin
ReplaceDialog1.Execute;
end;

procedure TForm1.ButtonFindClick(Sender: TObject);
begin
FindDialog1.Execute;
end;

end.