unit1.~pas

本代码用于看电子书 文件 望大家共享

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N3: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    ColorDialog1: TColorDialog;
    N10: TMenuItem;
    FindDialog1: TFindDialog;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N19: TMenuItem;
    FontDialog1: TFontDialog;
    N1231: TMenuItem;
    ReplaceDialog1: TReplaceDialog;
    N17: TMenuItem;
    N18: TMenuItem;
    RichEdit1: TRichEdit;


    procedure N4Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N10Click(Sender: TObject);

    procedure N3Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N1231Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure ReplaceDialog1Find(Sender: TObject);
    procedure FindDialog1Find(Sender: TObject);
    procedure ReplaceDialog1Replace(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  f:integer;
implementation

uses Unit2;

{$R *.dfm}
procedure TForm1.N1231Click(Sender: TObject);
 //关于
 var achildform:Tform2;
begin
 achildform:=tform2.create(self);


end;
procedure TForm1.N4Click(Sender: TObject);  //打开
begin
 opendialog1.filter:='文本文件|*.txt';
  if opendialog1.execute then
    richedit1.Lines.loadfromfile(opendialog1.FileName);
end;

procedure TForm1.N7Click(Sender: TObject);
begin
richedit1.copytoclipboard;
end;


procedure TForm1.N10Click(Sender: TObject);
begin
if colordialog1.execute then
 richedit1.color:=colordialog1.color;
end;



procedure TForm1.N3Click(Sender: TObject);
begin
  richedit1.pastefromclipboard;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
richedit1.cuttoclipboard;
end;
procedure TForm1.N14Click(Sender: TObject); //另存为
begin
 savedialog1.filter:='文本文件|*.txt)';
     if savedialog1.execute then
      richedit1.Lines.SaveToFile(savedialog1.filename);
end;

procedure TForm1.N8Click(Sender: TObject);
begin

if fontdialog1.execute then
  richedit1.Font:=fontdialog1.Font;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
  if fontdialog1.execute then
  richedit1.Font:=fontdialog1.Font;
end;

procedure TForm1.N5Click(Sender: TObject); //新建
begin
 f:=1;
richedit1.Clear
end;

procedure TForm1.N15Click(Sender: TObject);
    begin
       application.terminate
     end;

procedure TForm1.N13Click(Sender: TObject); //保存
     begin
    if f=1 then
      begin
    savedialog1.filter:='文本文件|*.txt)';
     if savedialog1.execute then
      richedit1.Lines.SaveToFile(savedialog1.filename);
      end
      else
    richedit1.Lines.SaveToFile(opendialog1.FileName);
      end;

procedure TForm1.N18Click(Sender: TObject); //替换
begin
replacedialog1.execute;
end;
procedure TForm1.ReplaceDialog1Find(Sender: TObject);
     var
     foundat:longint;
      startpos,toend:integer;
    begin
    with richedit1 do
   begin
   if sellength<>0 then
startpos:=selstart+sellength
    else
     startpos:=0;
     if seltext<>replacedialog1.FindText then
       startpos:=0 ;
    toend:=length(text)-startpos;
    foundat:=findtext(replacedialog1.findtext,startpos,toend,[stmatchcase]);
      if foundat<>-1 then
    begin
    setfocus;
    selstart:=foundat;
    sellength:=length(replacedialog1.findtext);
    end;
    end;
end;
  procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
begin
   if replacedialog1.execute then
  richedit1.seltext:=replacedialog1.replacetext;
end;

//查找
    procedure TForm1.finddialog1find(sender: tobject);
   var foundat:longint;
   startpos,toend:integer;

begin
 with richedit1 do
 begin
    if sellength<>0 then
     startpos:=selstart+sellength
    else
     startpos:=0;
     if seltext<>finddialog1.FindText then
       startpos:=0;

    toend:=length(text)-startpos;
    foundat:=findtext(finddialog1.findtext,startpos,toend,[stmatchcase]);
      if foundat<>-1 then
    begin
    setfocus;
    selstart:=foundat;
    sellength:=length(finddialog1.findtext);
    end;
    end;
end;


procedure TForm1.N17Click(Sender: TObject);
begin
  finddialog1.execute;
end;


end.