unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  ExtCtrls, StdCtrls, ComCtrls, jpeg, Menus, StrUtils;

type
  TfrmMain = class(TForm)
    Panel2: TPanel;
    Image1: TImage;
    Panel3: TPanel;
    rShow: TRichEdit;
    sBar: TStatusBar;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    CheckBox1: TCheckBox;
    Button4: TButton;
    procedure Image1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button4Click(Sender: TObject);
  private
    Handle:integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses uModule;

{$R *.dfm}

procedure TfrmMain.Image1Click(Sender: TObject);
begin
  sBar.SimpleText := '程序設計:Easten, 聯系郵箱:cqhed@163.com';
end;

procedure TfrmMain.FormShow(Sender: TObject);
begin
  rShow.SetFocus;
end;

procedure TfrmMain.Button1Click(Sender: TObject);
begin
  dModule.O1.Click;
end;

procedure TfrmMain.Button3Click(Sender: TObject);
begin
  dModule.S1.Click;
end;

procedure TfrmMain.Button2Click(Sender: TObject);
var
  i,iCount:integer;
  sTemp:string;
begin
  Button2.Enabled := False;
  rShow.SetFocus;
  sBar.SimpleText := '第一步[10%]: 正在刪除小空格,請稍候.....';
  sTemp := rShow.Text;
  iCount := rShow.Lines.Count;
  for i:=0 to iCount do  //此算法太落后,可考慮用線程
  begin
    sTemp := rShow.Lines[i];
    if Pos(' ',sTemp)=1 then
    begin
      Application.ProcessMessages;
      rShow.Lines[i] := Trim(sTemp);  //第一個為空格則剪切
    end;
  end;
  sBar.SimpleText := '第二步[45%]: 正在刪除大空格,請稍候.....';
  for i:=0 to 4 do
    if rShow.Lines[0]='' then rShow.Lines.Delete(0);
  sTemp := rShow.Text;
  sTemp := StringReplace(sTemp, '　　 ','', [rfReplaceAll]);
  sTemp := StringReplace(sTemp, '　','', [rfReplaceAll]); //除去大空格
  sBar.SimpleText := '第三步[80%]: 正在調整段落位置,請稍候.....';
  sTemp := StringReplace(sTemp, '  ',' ', [rfReplaceAll]); //除去連續三小空格
  sTemp := StringReplace(sTemp, '--','', [rfReplaceAll]);  //除去--
  sTemp := StringReplace(sTemp, '—','', [rfReplaceAll]);  //除去--
  sTemp := StringReplace(sTemp, chr(13)+chr(10)+chr(13)+chr(10)+chr(13)+chr(10),
           chr(13)+chr(10)+chr(13)+chr(10), [rfReplaceAll]);  //替換三個連續回車為二個
  sTemp := StringReplace(sTemp, chr(13)+chr(10)+chr(13)+chr(10)+chr(13)+chr(10),
           chr(13)+chr(10)+chr(13)+chr(10), [rfReplaceAll]);  //替換三個連續回車為二個
  sTemp := StringReplace(sTemp, ' '+chr(13)+chr(10),
           chr(13)+chr(10), [rfReplaceAll]);   //替換空格+回車為回車
  sBar.SimpleText := '第四步[95%]: 正在添加段前空格,請稍候.....';
  sTemp := StringReplace(sTemp, chr(13)+chr(10),
           chr(13)+chr(10)+'　　', [rfReplaceAll]);
  rShow.Text := sTemp;
  rShow.Lines.Insert(1,chr(13)+chr(10));  //標題后空兩段
  Button2.Enabled := True;
  sBar.SimpleText := '祝賀你,文檔處理成功!';
end;

procedure TfrmMain.FormCreate(Sender: TObject);
var
  sAllFile:string;
begin
  if DirectoryExists('Disposal')=False then
    CreateDir('Disposal');   //存放文件的目錄
  sAllFile := ExtractFileDir(Application.ExeName)+'\Disposal\';
  //保證文件夾不被刪除
  if FileExists(sAllFile+'Keep.ini') then
    Handle := FileOpen(sAllFile+'Keep.ini',fmOpenRead) //存在則打開
  else
    Handle := FileCreate(sAllFile+'Keep.ini'); //不存在則創建
end;

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
var
  sAllFile:string;
begin
  sAllFile := ExtractFileDir(Application.ExeName)+'\Disposal\';
  if FileExists(sAllFile+'Keep.ini') then
  begin
    FileClose(Handle);
    DeleteFile(sAllFile+'Keep.ini');
  end;
end;

procedure TfrmMain.Button4Click(Sender: TObject);
begin
  dModule.P1.Click;
end;

end.