umodule.pas

网页文档资料整理程序,便于日后用chm软件合并整理,优化了很多格式

unit uModule;

interface

uses
  SysUtils, Classes, XPMan, Menus, Dialogs, Forms, ActnList, Variants,
  ExtCtrls;

type
  TdModule = class(TDataModule)
    XpDesk: TXPManifest;
    dOpen: TOpenDialog;
    pMenu: TPopupMenu;
    C2: TMenuItem;
    P1: TMenuItem;
    N1: TMenuItem;
    O1: TMenuItem;
    S1: TMenuItem;
    C1: TMenuItem;
    N2: TMenuItem;
    procedure O1Click(Sender: TObject);
    procedure C2Click(Sender: TObject);
    procedure P1Click(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure S1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dModule: TdModule;

implementation

uses uMain;

{$R *.dfm}

procedure TdModule.O1Click(Sender: TObject);
begin
  frmMain.rShow.SetFocus;
  try
    if dOpen.Execute then
    begin
      frmMain.rShow.Clear;
      frmMain.rShow.Lines.LoadFromFile(dOpen.FileName);
      frmMain.sBar.SimpleText := '打开文档成功:' + dOpen.FileName;
    end;
  except
  end;
end;

procedure TdModule.C2Click(Sender: TObject);
begin
  frmMain.rShow.SelStart := 0;
  frmMain.rShow.SelectAll;
  frmMain.rShow.CopyToClipboard;
  frmMain.sBar.SimpleText := '文档复制成功!';
end;

procedure TdModule.P1Click(Sender: TObject);
begin
  frmMain.rShow.SetFocus;
  frmMain.rShow.PasteFromClipboard;
end;

procedure TdModule.C1Click(Sender: TObject);
begin
  frmMain.rShow.Clear;
  frmMain.sBar.SimpleText := '内容清除完毕!';
end;

procedure TdModule.S1Click(Sender: TObject);
var
  sFile : string;
begin
  frmMain.rShow.SetFocus;
  if frmMain.rShow.Lines[0]='' then
  begin
    frmMain.sBar.SimpleText := '保存文件失败,请更改第一行标题进行重命名!';
    exit;
  end;
  sFile := ExtractFileDir(Application.ExeName) + '\Disposal\[ '
           + Trim(frmMain.rShow.Lines[0]) + ' ].txt';
  try
    if FileExists(sFile) then
      if Application.MessageBox('文件已经存在,是否覆盖?','保存',1)=1 then
      begin
        frmMain.rShow.Lines.SaveToFile(sFile);
        frmMain.sBar.SimpleText := '保存文件成功:' + sFile;
        frmMain.rShow.Clear;
      end
      else
        frmMain.sBar.SimpleText := '文件已经存在,请更改第一行标题进行重命名!'
    else
    begin
      frmMain.rShow.Lines.SaveToFile(sFile);
      frmMain.sBar.SimpleText := '保存文件成功:' + sFile;
      frmMain.rShow.Clear;
    end;
  except
    frmMain.sBar.SimpleText := '保存文件失败,请更改第一行标题的非法字符,进行重命名!';
  end;
  frmMain.FreeOnRelease;
end;

procedure TdModule.N2Click(Sender: TObject);
begin
  frmMain.Button2.Click;
end;

end.