简单文本除重小工具源码

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    MainMenu1: TMainMenu;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    F1: TMenuItem;
    O1: TMenuItem;
    S1: TMenuItem;
    E1: TMenuItem;
    E2: TMenuItem;
    A1: TMenuItem;
    C1: TMenuItem;
    V1: TMenuItem;
    D1: TMenuItem;
    W1: TMenuItem;
    E3: TMenuItem;
    W2: TMenuItem;
    F2: TMenuItem;
    A2: TMenuItem;
    Button1: TButton;
    procedure O1Click(Sender: TObject);
    procedure S1Click(Sender: TObject);
    procedure E3Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure V1Click(Sender: TObject);
    procedure D1Click(Sender: TObject);
    procedure W2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure A2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.O1Click(Sender: TObject);
begin
if form1.OpenDialog1.Execute then
if FileExists(form1.OpenDialog1.FileName) then begin
memo1.Lines.LoadFromFile(form1.OpenDialog1.FileName);
end
Else begin
SHOWmessage(Pchar(form1.OpenDialog1.FileName+'不存在！！！'));
end;
end;

procedure TForm1.S1Click(Sender: TObject);
begin
if form1.SaveDialog1.Execute then
 IF not FileExists(form1.SaveDialog1.FileName) then begin
memo1.Lines.SaveToFile(form1.SaveDialog1.FileName);
end
 Else begin
   if Application.MessageBox('文件已经存在，是否覆盖？', '提示', MB_YESNO + MB_ICONQUESTION) = mrYes then
        begin
         memo1.Lines.SaveToFile(form1.SaveDialog1.FileName);
   end
    Else begin
    SHOWmessage(Pchar('文件未保存！！！'));
    end;
 end;
end;

procedure TForm1.E3Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.A1Click(Sender: TObject);
begin
memo1.SelectAll;
end;

procedure TForm1.C1Click(Sender: TObject);
begin
If memo1.SelLength < 1 then begin
SHOWmessage(Pchar('请选择你要复制的文本！！！'));
Exit;
end
Else begin
memo1.CopyToClipboard;
end;
end;

procedure TForm1.V1Click(Sender: TObject);
begin
memo1.PasteFromClipboard;
end;

procedure TForm1.D1Click(Sender: TObject);
begin
memo1.Clear;
end;

procedure TForm1.W2Click(Sender: TObject);
begin
memo1.WantTabs:=form1.W2.Checked;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
List: TStringList;
i:integer;
begin
IF memo1.Lines.Count > 0 then begin
  List := TStringList.Create;
  for I:=0 to memo1.Lines.Count-1 do begin
  if memo1.Lines.Strings[I] <> '' then begin
  List.Add(memo1.Lines.Strings[I]);
  List.Sorted := True;
  List.Duplicates := dupIgnore;
  end;
  end;
  memo1.Clear;
  memo1.Text:=list.Text;
  //memo1.Lines.Delete(0);
end
 ELSE begin
  showmessage('memo为空！！！');
  end;
end;

procedure TForm1.A2Click(Sender: TObject);
begin
form2.ShowModal;
end;

end.