DelphiTXT文档编辑器

EXE:http://files.cnblogs.com/xe2011/Text_EditorRelease2013-12-20-185320.rar

Delphi XE5 PAS:http://files.cnblogs.com/xe2011/Text_Editor_Pascal2013-12-20-185320.rar

字符处理单元

 // 字符串处理功能

 unit StringFunctions;

 interface

 uses
   Windows, Messages, SysUtils, Variants, Classes, Forms, Dialogs, StdCtrls,
   Commctrl;

 type
   TStringFunction = class(TObject)
   private
     function IsUpper(ch: char): boolean;
     function IsLower(ch: char): boolean;
     function ToUpper(ch: char): char;
     function ToLower(ch: char): char;
   public
     procedure ReplaceSelText(Edit: TCustomEdit; const s: String);
     procedure UpperSelText(Edit: TCustomEdit);
     procedure LowerSelText(Edit: TCustomEdit);

     function UpperFistLetter(Memo: TMemo): string;

     procedure ClearBlankLine(Memo: TMemo);
     procedure ClearBlankSpace(Memo: TMemo);
     procedure ClearNum(Memo: TMemo);
     procedure ClearLetter(Memo: TMemo);

     procedure InsertNumber(Memo: TMemo);
     procedure InsertString(Memo: TMemo; str: string);
     procedure InsertComment(Memo: TMemo);
     procedure BatchReplaceString(Memo: TMemo);

     procedure JustOneLine(Memo: TMemo);
     procedure ReLine(Memo: TMemo; n: Integer);

     procedure TextToHtml(sTextFile, sHtmlFile: string);

     function Proper(const s: string): string;
     function CNWordsCount(text: string): Integer;
     function ENWordsCount(text: string): Integer;

   end;

 var
   StrFunction: TStringFunction;

 implementation

 // 让代码设置Memo后可以让memo在Ctrl+Z撤销有效
 procedure TStringFunction.ReplaceSelText(Edit: TCustomEdit; const s: String);
 begin
   SendMessage(Edit.Handle, EM_REPLACESEL, , LPARAM(PChar(s)));
   // Edit.Perform(EM_REPLACESEL, , LPARAM(PChar(s)));
 end;

 // Edit显示行号
 // ------------------------------------------------------------------------------
 // 去除空行
 // Memo1.Text := StringReplace(Memo1.Text, ####, ##, [rfReplaceAll]);
 {
   //无法撤销
   //空行的去掉
   //本行只有空格的也去掉
   //全选
   //复制到剪切板上
 }
 procedure TStringFunction.ClearBlankLine(Memo: TMemo);
 var
   i: Integer;
   list: TStringList;
 begin
   with Memo do
   begin
     if Lines.Count >  then
     begin
       list := TStringList.Create;
       for i :=  to Lines.Count -  do
         if (Trim(Lines[i]) <> '') then
           list.Add(Lines[i]);
       SelectAll;
       ReplaceSelText(Memo, list.text);
       list.Free;
     end;
   end;
 end;

 // 去除空格
 // 将 空格替换为空
 procedure TStringFunction.ClearBlankSpace(Memo: TMemo);
 var
   s: string;
 begin
   s := StringReplace(Memo.Lines.text, ' ', '', [rfReplaceAll]);
   s := StringReplace(s, '　', '', [rfReplaceAll]);  //中文的空格

   Memo.SelectAll;
   ReplaceSelText(Memo,s);
 end;

 // 去除一字符串中的所有的数字
 //
 procedure TStringFunction.ClearNum(Memo: TMemo);
 var
   str: string;
   i: Integer;
 begin
   str := '';
   for i :=  to Length(str) do
     Memo.text  := StringReplace(Memo.Lines.text, str[i], '', [rfReplaceAll]);

   { rfReplaceAll
     TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);
   }
 end;

 // 去除一字符串中的所有的字母
 procedure TStringFunction.ClearLetter(Memo: TMemo);
 var
   str: string;
   i: Integer;
 begin
   str := 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
   for i :=  to Length(str) do
     Memo.text := StringReplace(Memo.Lines.text, str[i], '', [rfReplaceAll]);
 end;

 // 批量替换关键字
 procedure TStringFunction.BatchReplaceString(Memo: TMemo);
 var
   i: Integer;
 begin
   for i :=  to Length(Memo.Lines.text) do
     Memo.text := StringReplace(Memo.Lines.text, Memo.Lines[i], '',
       [rfReplaceAll]);
   ClearBlankSpace(Memo);
 end;

 // ------------------------------------------------------------------------------
 // 全角转半角
 // 符号有哪些
 procedure ConvertQtoB;
 begin

 end;

 // 半角转换全角
 procedure ConvertBtoQ;
 begin

 end;

 { 转换选中的文本大写 }
 procedure TStringFunction.UpperSelText(Edit: TCustomEdit);
 var
   x, y: Integer;
 begin
   With Edit do
   begin
     x := SelStart;
     y := SelLength;
     if SelText <> '' then
     begin
       ReplaceSelText(Edit, UpperCase(SelText));
       SelStart := x;
       SelLength := y;
     end
     else
     begin
       Edit.SelectAll;
       ReplaceSelText(Edit, UpperCase(Edit.text));
     end;
   end;
 end;

 { 转换选中的文本小写 }
 procedure TStringFunction.LowerSelText(Edit: TCustomEdit);
 var
   x, y: Integer;
 begin
   With Edit do
   begin
     x := SelStart;
     y := SelLength;
     if SelText <> '' then
     begin
       ReplaceSelText(Edit, LowerCase(SelText));
       SelStart := x;
       SelLength := y;
     end
     else
     begin
       Edit.SelectAll;
       ReplaceSelText(Edit, LowerCase(Edit.text));
     end;
   end;
 end;

 { 判断字符是否是大写字符 }
 function TStringFunction.IsUpper(ch: char): boolean;
 begin
   Result := ch in ['A' .. 'Z'];
 end;

 { 判断字符是否是小写字符 }
 function TStringFunction.IsLower(ch: char): boolean;
 begin
   Result := ch in ['a' .. 'z'];
 end;

 { 转换为大写字符 }
 function TStringFunction.ToUpper(ch: char): char;
 begin
   Result := chr(ord(ch) and $DF);
 end;

 { 转换为小写字符 }
 function TStringFunction.ToLower(ch: char): char;
 begin
   Result := chr(ord(ch) or $);
 end;

 { Capitalizes First Letter Of Every Word In S 单语首字母大写 }
 function TStringFunction.Proper(const s: string): string;
 var
   i: Integer;
   CapitalizeNextLetter: boolean;
 begin
   Result := LowerCase(s);
   CapitalizeNextLetter := True;
   for i :=  to Length(Result) do
   begin
     if CapitalizeNextLetter and IsLower(Result[i]) then
       Result[i] := ToUpper(Result[i]);
     CapitalizeNextLetter := Result[i] = ' ';
   end;
 end;

 { //// Memo选中的首字母大写 }
 function TStringFunction.UpperFistLetter(Memo: TMemo): string;
 var
   lst: TStrings;
   i: Integer;
   s: string;
 begin
   lst := TStrings.Create;
   lst := Memo.Lines;

   for i :=  to lst.Count -  do
   begin
     s := s + StrFunction.Proper(lst[i] + ##);
   end;
   Memo.SelectAll;
   StrFunction.ReplaceSelText(Memo, s);
   // Memo.SelectAll;
 end;

 // ------------------------------------------------------------------------------
 procedure TStringFunction.InsertNumber(Memo: TMemo);
 var
   lst: TStrings;
   i: Integer;
   s: string;
 begin
   lst := TStrings.Create;
   lst := Memo.Lines;

   for i :=  to lst.Count -  do
   begin
     s := s + Format('%d    %s'##, [i, lst[i]]);;
   end;
   Memo.SelectAll;
   ReplaceSelText(Memo, s);
   // Memo.SelectAll;
 end;

 procedure TStringFunction.InsertString(Memo: TMemo; str: string);
 var
   lst: TStrings;
   i: Integer;
   s: string;
 begin
   lst := TStrings.Create;
   lst := Memo.Lines;

   for i :=  to lst.Count -  do
   begin
     s := s + Format('%s%s'##, [lst[i], str]);;
   end;
   Memo.SelectAll;
   ReplaceSelText(Memo, s);
 end;

 // 注释和取消注释
 // 获得选中的文本的起始行和结束行
 // 可以通过 MOUSEDOWN MOUSEUP得到
 procedure TStringFunction.InsertComment(Memo: TMemo);
 var
   str: string;
   x, y: Integer;
 begin
   str := Memo.SelText;
   x := Memo.SelStart;
   y := Memo.SelLength;

   if str = '' then
     Exit;
   // Memo.SetSelText('//' +str);
   Memo.SelText := '//' + str;
   Memo.SelStart := x + ;
   Memo.SelLength := y + ;

 end;

 // ------------------------------------------------------------------------------
 // 合并成一行
 procedure TStringFunction.JustOneLine(Memo: TMemo);
 var
   s: string;
   i: Integer;
 begin
   for i :=  to Memo.Lines.Count -  do
     s := s + Memo.Lines[i];
   Memo.SelectAll;
   ReplaceSelText(Memo, s);
 end;

 // ------------------------------------------------------------------------------
 // 重新分行
 {
   var
   n: Integer;
   begin
   n := StrToInt(InputBox('重新分行', '每行几个字符', '8'));
   ReLine(Memo1, n);
   end;
 }
 procedure TStringFunction.ReLine(Memo: TMemo; n: Integer);
 var
   s: string;
   i, j, k: Integer;
   L: TStringList;
 begin
   L := TStringList.Create;
   j := ;

   for k :=  to Memo.Lines.Count -  do
     s := s + Memo.Lines[k];

   if Trim(s) <> '' then
   begin
     for i :=  to (Length(s) div n) do // 几行
     begin
       j := j + n;
       L.Add(Copy(s, j - n, n)); // COPY 的第一位不是0是1 // 每行的字符
     end;
   end;
   Memo.SelectAll;
   ReplaceSelText(Memo, L.text);
   L.Free;
 end;

 // ------------------------------------------------------------------------------
 // 获得汉字字符个数
 function TStringFunction.CNWordsCount(text: string): Integer;
 var
   i, sum, c: Integer;
 begin
   Result := ;

   c := ;
   sum := Length(text);

   if sum =  then
     Exit;
   for i :=  to sum do
   begin
     if ord(text[i]) >=  then
     begin
       Inc(c);
     end;
   end;
   Result := c;
 end;

 // 获得非汉字字符个数
 function TStringFunction.ENWordsCount(text: string): Integer;
 var
   i, sum, e: Integer;
 begin
   Result := ;
   e := ;
   sum := Length(text);
   if sum =  then
     Exit;
   for i :=  to sum do
   begin
     if (ord(text[i]) >= ) and (ord(text[i]) <= ) then
     begin
       Inc(e);
     end;
   end;
   Result := e;
 end;

 {
   TextToHtml('C:\1.txt','c:\2.htm');
 }
 procedure TStringFunction.TextToHtml(sTextFile, sHtmlFile: string);
 var
   aText: TStringList;
   aHtml: TStringList;
   i: Integer;
 begin
   aText := TStringList.Create;
   try
     aText.LoadFromFile(sTextFile);
     aHtml := TStringList.Create;
     try
       aHtml.Clear;
       aHtml.Add('<html>');
       aHtml.Add('<body>');
       for i :=  to aText.Count -  do
         aHtml.Add(aText.Strings[i] + '<br>');
       aHtml.Add('</body>');
       aHtml.Add('</html>');
       aHtml.SaveToFile(sHtmlFile);
     finally
       aHtml.Free;
     end;
   finally
     aText.Free;
   end;
 end;

 Initialization

 StrFunction := TStringFunction.Create;

 Finalization

 StrFunction.Free;

 end.

主窗体单元

 unit TextEditor;

 interface

 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
   System.Classes, Vcl.Graphics,
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.StdCtrls, Vcl.ComCtrls,
   Vcl.StdActns, Vcl.ActnList, Vcl.ExtActns, System.Actions, Vcl.ExtCtrls,
   Vcl.ExtDlgs, INIFILES;

 function GetUserDefaultUILanguage(): Integer; external 'Kernel32.DLL';

 type
   TTextEditorForm = class(TForm)
     Memo1: TMemo;
     StatusBar1: TStatusBar;
     MainMenu1: TMainMenu;
     mni_File: TMenuItem;
     FileNew: TMenuItem;
     FileOpen: TMenuItem;
     FileSave: TMenuItem;
     FileSaveAs: TMenuItem;
     mni_PageSetup: TMenuItem;
     mni_Print: TMenuItem;
     mni_Exit: TMenuItem;
     mni_Edit: TMenuItem;
     mni_Undo: TMenuItem;
     mni_Cut: TMenuItem;
     mni_Copy: TMenuItem;
     mni_Paste: TMenuItem;
     mni_Delete: TMenuItem;
     mni_Find: TMenuItem;
     mni_FindNext: TMenuItem;
     mni_Replace: TMenuItem;
     mni_GoTo: TMenuItem;
     mni_SelectAll: TMenuItem;
     mni_DateTime: TMenuItem;
     mni_Format: TMenuItem;
     mni_Font: TMenuItem;
     mni_WordWrap: TMenuItem;
     mni_View: TMenuItem;
     mni_StatusBar: TMenuItem;
     mni_Help: TMenuItem;
     mni_ViewHelp: TMenuItem;
     mni_About: TMenuItem;
     mni_SetTopMoset: TMenuItem;
     FindDialog1: TFindDialog;
     ReplaceDialog1: TReplaceDialog;
     Tools: TMenuItem;
     Options1: TMenuItem;
     N2: TMenuItem;
     Convert1: TMenuItem;
     Clear1: TMenuItem;
     Bat1: TMenuItem;
     Rnd1: TMenuItem;
     Total1: TMenuItem;
     upperCase: TMenuItem;
     Lowercase: TMenuItem;
     N3: TMenuItem;
     UpperFirstLatter: TMenuItem;
     InsertNumber: TMenuItem;
     Comment: TMenuItem;
     NoBank: TMenuItem;
     BatNoKeyWord: TMenuItem;
     N5: TMenuItem;
     NoSpace: TMenuItem;
     NoNumber: TMenuItem;
     NoLetter: TMenuItem;
     CombineOne: TMenuItem;
     ReLine: TMenuItem;
     N7: TMenuItem;
     BatCreateFile: TMenuItem;
     BatCreateFolder: TMenuItem;
     BatCreateRename: TMenuItem;
     N4: TMenuItem;
     N1: TMenuItem;
     HTMLTXT1: TMenuItem;
     XTHTML1: TMenuItem;
     RecentFiles: TMenuItem;
     ClearFiles: TMenuItem;
     N6: TMenuItem;
     ComplexText1: TMenuItem;
     SimpleText1: TMenuItem;
     mni_InsertRightStr: TMenuItem;
     ASCIIHEX1: TMenuItem;
     HEXASCII1: TMenuItem;
     N8: TMenuItem;
     procedure FormResize(Sender: TObject);
     procedure mni_WordWrapClick(Sender: TObject);
     procedure mni_AboutClick(Sender: TObject);
     procedure mni_FontClick(Sender: TObject);
     procedure mni_DateTimeClick(Sender: TObject);
     procedure mni_GoToClick(Sender: TObject);
     procedure mni_StatusBarClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure SaveConfig(Sender: TObject);
     procedure LoadConfig(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure mni_PrintClick(Sender: TObject);
     procedure mni_SetTopMosetClick(Sender: TObject);
     procedure Memo1MouseUp(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
     procedure act_SetCaretPosExecute(Sender: TObject);
     procedure Memo1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FindDialog1Find(Sender: TObject);
     procedure mni_DeleteClick(Sender: TObject);
     procedure mni_PasteClick(Sender: TObject);
     procedure mni_CopyClick(Sender: TObject);
     procedure mni_CutClick(Sender: TObject);
     procedure ReplaceDialog1Replace(Sender: TObject);
     procedure ReplaceDialog1Find(Sender: TObject);
     procedure mni_FindNextClick(Sender: TObject);
     procedure mni_FindClick(Sender: TObject);
     procedure mni_ReplaceClick(Sender: TObject);
     procedure mni_EditClick(Sender: TObject);
     procedure mni_UndoClick(Sender: TObject);
     procedure mni_PageSetupClick(Sender: TObject);
     procedure mni_ExitClick(Sender: TObject);
     procedure Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure mni_SelectAllClick(Sender: TObject);
     procedure Memo1KeyPress(Sender: TObject; var Key: Char);
     procedure FileNewClick(Sender: TObject);
     procedure FileOpenClick(Sender: TObject);
     procedure FileSaveClick(Sender: TObject);
     procedure FileSaveAsClick(Sender: TObject);
     procedure Total1Click(Sender: TObject);
     procedure upperCaseClick(Sender: TObject);
     procedure LowercaseClick(Sender: TObject);
     procedure UpperFirstLatterClick(Sender: TObject);
     procedure NoSpaceClick(Sender: TObject);
     procedure NoBankClick(Sender: TObject);
     procedure CombineOneClick(Sender: TObject);
     procedure ReLineClick(Sender: TObject);
     procedure HTMLTXT1Click(Sender: TObject);
     procedure InsertNumberClick(Sender: TObject);
     procedure mni_InsertRightStrClick(Sender: TObject);
     procedure NoNumberClick(Sender: TObject);
     procedure NoLetterClick(Sender: TObject);
     procedure mni_ViewHelpClick(Sender: TObject);
   private
     { Private declarations }
     FFileName: string;
     procedure CheckFileSave;
     procedure SetFileName(const FileName: String);
     procedure PerformFileOpen(const AFileName: string);
     procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;

     // ------------------------------------------------------------------------------
     // procedure WMDROPFILES(var MSg: TMessage); message WM_DROPFILES;
     procedure GoToMemoLineDialog(Memo: TMemo);
     procedure SetUiCHS();
     procedure SetUiEN();
     procedure MemoPrinter(Memo: TMemo; TitleStr: string = '无标题');

     // ------------------------------------------------------------------------------

   public
     { Public declarations }
   end;

 var
   TextEditorForm: TTextEditorForm;
   FindStr: string;
   bStatueBar: Boolean = False;
   AppINI: string;
   // ------------------------------------------------------------------------------

 implementation

 uses
   ShellApi, Registry, Printers, Clipbrd, StrUtils,
   Search, StringFunctions, Encrypt, Config, SimpleConvert;
 {$R *.dfm}

 resourcestring
   sSaveChanges = '是否将未更改保存到 %s?';
   sOverWrite = '%s 已存在。' + ## + '要替换它吗？';
   sTitle = '记事本';
   sUntitled = '未命名';
   sColRowInfo = '行: %3d   列: %3d';
   sLine = '行'; //
   scol = '列';
   sGoToTitle = '转到指定行'; // 轮到行的 输入对话框的标题
   sGoToTips = '行号(&L):'; //
   sMsgBoxTitle = '行数超过了总行数';
   sFileDlgFilter = '文本文档(*.txt)|*.txt|所有文件(*.*)|*.*'; // 打开和保存的文本是一样的

 procedure TextToHtml(Memo: TMemo);
 var
   lst: TStringList;
   i: Integer;
 begin
   try
     lst := TStringList.Create;
     with lst do
     begin
       Clear;
       Add('<html>');
       Add('<body>');
       for i :=  to Memo.Lines.Count -  do
         Add(Memo.Lines[i] + '<br>');
       Add('</body>');
       Add('</html>');
       Memo.text := text;
       ShowMessage(text);
     end;
   finally
     lst.Free;
   end;
 end;

 procedure TTextEditorForm.CheckFileSave;
 var
   SaveRespond: Integer;
 begin
   if not Memo1.Modified then
     Exit;
   SaveRespond := MessageBox(Handle, PWideChar(Format(sSaveChanges, [FFileName])
     ), PWideChar(sTitle), MB_YESNOCANCEL + MB_ICONINFORMATION);
   case SaveRespond of
     idYes:
       FileSave.click;
     idNo:
       ; { Nothing }
     idCancel:
       Abort;
   end;
 end;

 procedure TTextEditorForm.CombineOneClick(Sender: TObject);
 begin
   strfunction.JustOneLine(Memo1);
 end;

 procedure TTextEditorForm.SetFileName(const FileName: String);
 begin
   FFileName := FileName;
   Caption := Format('%s - %s', [ExtractFileName(FileName), sTitle]);
 end;

 procedure TTextEditorForm.PerformFileOpen(const AFileName: string);
 begin
   Memo1.Lines.LoadFromFile(AFileName);
   SetFileName(AFileName);
   Memo1.SetFocus;
   Memo1.Modified := False;
 end;

 procedure TTextEditorForm.WMDropFiles(var Msg: TWMDropFiles);
 var
   CFileName: array [ .. MAX_PATH] of Char;
 begin
   try
     if DragQueryFile(Msg.Drop, , CFileName, MAX_PATH) >  then
     begin
       CheckFileSave;
       PerformFileOpen(CFileName);
       Msg.Result := ;
     end;
   finally
     DragFinish(Msg.Drop);
   end;
 end;

 { ReplaceDialog Find }
 procedure TTextEditorForm.ReLineClick(Sender: TObject);
 var
   n: Integer;
 begin
   n := StrToInt(InputBox('重新分行', '每行几个字符', ''));
   strfunction.ReLine(Memo1, n);
 end;

 procedure TTextEditorForm.ReplaceDialog1Find(Sender: TObject);
 begin
   with Sender as TReplaceDialog do
     if not SearchMemo(Memo1, FindText, Options) then
       MessageBox(Handle, PWideChar(Concat('找不到"', FindText, '"')), '记事本',
         MB_ICONINFORMATION);
 end;

 { ReplaceDialog Replace }
 procedure TTextEditorForm.ReplaceDialog1Replace(Sender: TObject);
 var
   Found: Boolean;
 begin
   with ReplaceDialog1 do
   begin
     { Replace }
     if (frReplace in Options) and (Memo1.SelText = FindText) then
       Memo1.SelText := ReplaceText;
     Found := SearchMemo(Memo1, FindText, Options);

     { Replace All }
     if (frReplaceAll in Options) then
     begin
       Memo1.SelStart := ;
       while Found do
       begin
         if (Memo1.SelText = FindText) then
           Memo1.SelText := ReplaceText;
         Found := SearchMemo(Memo1, FindText, Options);
       end;
       if not Found then
         SendMessage(Memo1.Handle, WM_VSCROLL, SB_TOP, );
     end;

     if (not Found) and (frReplace in Options) then
       MessageBox(Handle, PWideChar(Concat('找不到"', FindText, '"')), '记事本',
         MB_ICONINFORMATION);
   end;

 end;

 procedure TTextEditorForm.FileNewClick(Sender: TObject);
 begin
   CheckFileSave;
   SetFileName(sUntitled);

   Memo1.Lines.Clear;
   Memo1.Modified := False;
 end;

 procedure TTextEditorForm.FileOpenClick(Sender: TObject);
 begin
   CheckFileSave;

   with TOpenDialog.Create(nil) do
   begin
     Filter := sFileDlgFilter;
     FileName := '*.txt';
     if Execute then
     begin
       PerformFileOpen(FileName);
       Memo1.ReadOnly := ofReadOnly in Options;
     end;
   end;
 end;

 procedure TTextEditorForm.FileSaveClick(Sender: TObject);
 begin
   if FFileName = sUntitled then
     FileSaveAs.click
   else
   begin
     Memo1.Lines.SaveToFile(FFileName);
     Memo1.Modified := False;
   end;
 end;

 procedure TTextEditorForm.FileSaveAsClick(Sender: TObject);
 begin
   with TSaveDialog.Create(nil) do
   begin
     Filter := sFileDlgFilter;
     FileName := '*.txt';
     if Execute then
     begin
       if FileExists(FileName) then
         if MessageBox(Handle, PWideChar(Format(sOverWrite, [FFileName])),
           PWideChar(sTitle), MB_YESNOCANCEL + MB_ICONINFORMATION) <> idYes then
           Exit;
       Memo1.Lines.SaveToFile(FileName);
       SetFileName(FileName);
       Memo1.Modified := False;
     end;
   end;
 end;

 procedure TTextEditorForm.FindDialog1Find(Sender: TObject);
 begin
   with Sender as TFindDialog do
   begin
     FindStr := FindText;
     if not SearchMemo(Memo1, FindText, Options) then
       MessageBox(Handle, PWideChar(Concat('找不到"', FindText, '"')), '记事本',
         MB_ICONINFORMATION);
   end;
 end;

 procedure TTextEditorForm.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
   SaveConfig(Sender);
   Action := caFree;

   CheckFileSave;
 end;

 procedure TTextEditorForm.FormCreate(Sender: TObject);
 begin

   AppINI := ExtractFilePath(Application.ExeName) + 'Text Editor.ini';

   SetFileName(sUntitled);
   DragAcceptFiles(Handle, True);
   // FindDialog1.Options := [frDown, frHideWholeWord];
   // ReplaceDialog1.Options := [frDown, frHideWholeWord];
   with Memo1 do
   begin
     HideSelection := False;
     ScrollBars := ssVertical;
     Align := alClient;
   end;

   act_SetCaretPosExecute(Sender);

   if GetUserDefaultUILanguage() = $ then
     SetUiCHS // Caption:='简体中文';
   else
     SetUiEN; // Caption:='英文';

   // Caption := Form1Title;
   LoadConfig(Sender);
   bStatueBar := mni_StatusBar.Checked;

   if mni_WordWrap.Checked then
   begin
     mni_WordWrap.click;
     mni_WordWrap.Checked := True;
     // 可以自动换行
     Memo1.ScrollBars := ssVertical;
     Memo1.WordWrap := True;
     mni_GoTo.Enabled := False;
     mni_StatusBar.Checked := False;
     mni_StatusBar.Enabled := False;
     StatusBar1.Visible := False;
   end
   else
   begin
     // 不能换行
     Memo1.ScrollBars := ssBoth;
     Memo1.WordWrap := False;
     mni_GoTo.Enabled := True;
     mni_StatusBar.Enabled := True;
     StatusBar1.Visible := bStatueBar;
   end;

   bStatueBar := mni_StatusBar.Checked;
   mni_StatusBar.Checked := bStatueBar;
   StatusBar1.Panels[].Width := ( * StatusBar1.Width) div ;
 end;

 procedure TTextEditorForm.FormResize(Sender: TObject);
 begin
   StatusBar1.Panels[].Width := ( * StatusBar1.Width) div ;
   // SaveConfig(Sender);
 end;

 procedure TTextEditorForm.GoToMemoLineDialog(Memo: TMemo);
 var
   LineIndex1, LineLength1, selStart1, Line, i: Integer;
 begin
   selStart1 := ;
   Line := StrToInt(InputBox(sGoToTitle, sGoToTips,
     IntToStr(Memo.CaretPos.Y + ))) - ;

   if (Line > ) and (Line <= Memo.Lines.Count) then
     for i :=  to Line -  do
     begin
       LineIndex1 := SendMessage(Memo.Handle, EM_LINEINDEX, i, );
       LineLength1 := SendMessage(Memo.Handle, EM_LINELENGTH, LineIndex1, ) + ;
       selStart1 := selStart1 + LineLength1;
     end
   else if Line =  then
     Memo.SelStart := selStart1
   else
     MessageBox(Handle, PWideChar('行数超出了总行数'), PWideChar('记事本 - 跳行'), );
   Memo.SelStart := selStart1;
 end;

 procedure TTextEditorForm.HTMLTXT1Click(Sender: TObject);
 begin
   TextToHtml(Memo1);
 end;

 procedure TTextEditorForm.InsertNumberClick(Sender: TObject);
 begin
   strfunction.InsertNumber(Memo1);
 end;

 procedure TTextEditorForm.LowercaseClick(Sender: TObject);
 begin
   strfunction.LowerSelText(Memo1);
 end;

 procedure TTextEditorForm.Memo1KeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin
   { 你猜在编辑菜单中为何不使用系统的HotKey而在这里用手动来实现快捷键
     去除声音
   }
   if (Shift = [ssCtrl]) and (Key = $) then // 按下<Ctrl+F>
     mni_Find.click;

   if (Key = vk_F3) and mni_FindNext.Enabled then // F3
     mni_FindNext.click;

   if (Shift = [ssCtrl]) and (Key = $) then // Ctrl+H
     mni_Replace.click;

   if (Shift = [ssCtrl]) and (Key = $) and (not Memo1.WordWrap) then // Ctrl+G
     mni_GoTo.click;

   if (Shift = [ssCtrl]) and (Key = $) then // Ctrl+A
     mni_SelectAll.click;

   if (Key = vk_F5) then // F5
     mni_DateTime.click;
 end;

 procedure TTextEditorForm.Memo1KeyPress(Sender: TObject; var Key: Char);
 begin
   // F,H,G,A
   if (Key = #) or (Key = #) { or (Key = #8) } or (Key = #) then
     Key := #;
 end;

 procedure TTextEditorForm.Memo1KeyUp(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin
   act_SetCaretPosExecute(Sender);
 end;

 procedure TTextEditorForm.Memo1MouseUp(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 begin

   act_SetCaretPosExecute(Sender);
 end;

 // ------------------------------------------------------------------------------
 { Edit Menu Item Enable }
 procedure TTextEditorForm.mni_EditClick(Sender: TObject);
 begin
   mni_Find.Enabled := (Memo1.text <> '');
   mni_FindNext.Enabled := (Memo1.text <> '') and (FindStr <> '');
   mni_Replace.Enabled := (Memo1.text <> '');

   mni_GoTo.Enabled := not Memo1.WordWrap;
   mni_Undo.Enabled := Memo1.Modified;
   mni_Cut.Enabled := (Memo1.SelLength > );
   mni_Copy.Enabled := (Memo1.SelLength > );
   mni_Paste.Enabled := Clipboard.HasFormat(CF_TEXT);
   mni_Delete.Enabled := (Memo1.text <> '');
   // mni_SelectAll.Enabled:= ( Memo1.SelLength <> Length(Memo1.Text) );
 end;

 procedure TTextEditorForm.mni_AboutClick(Sender: TObject);
 begin
   ShellAbout(Handle, PWideChar('记事本'),
     'Roman E-Main:450640526@qq.com 2013年6月15日17:46:18',
     Application.Icon.Handle);
 end;

 procedure TTextEditorForm.mni_CopyClick(Sender: TObject);
 begin
   Memo1.CopyToClipboard
 end;

 procedure TTextEditorForm.mni_CutClick(Sender: TObject);
 begin
   Memo1.CutToClipboard;
 end;

 procedure TTextEditorForm.mni_DeleteClick(Sender: TObject);
 begin
   // 没选中也能删除的
   // 快捷键del去掉就可以正常使用了
   Memo1.ClearSelection;
 end;

 procedure TTextEditorForm.mni_SelectAllClick(Sender: TObject);
 begin
   Memo1.SelectAll;
 end;

 procedure TTextEditorForm.mni_DateTimeClick(Sender: TObject);
 begin
   Memo1.SetSelText((FormatDateTime('hh:mm yyyy/m/dd', now))); // 插入时间/日期
 end;

 procedure TTextEditorForm.mni_ExitClick(Sender: TObject);
 begin
   Close;
 end;

 // 调用查找对话框
 procedure TTextEditorForm.mni_FindClick(Sender: TObject);
 begin
   with FindDialog1 do
   begin
     Left := Self.Left + ;
     Top := Self.Top + ;
     FindText := Memo1.SelText;
     Execute;
   end;
 end;

 { ReplaceDialog1.Execute }
 procedure TTextEditorForm.mni_ReplaceClick(Sender: TObject);
 begin
   with ReplaceDialog1 do
   begin
     Left := Self.Left + ;
     Top := Self.Top + ;
     FindText := Memo1.SelText;
     Execute;
   end;
 end;

 { Find Next }
 procedure TTextEditorForm.mni_FindNextClick(Sender: TObject);
 begin
   if not SearchMemo(Memo1, FindStr, FindDialog1.Options) then
     MessageBox(Handle, PWideChar(Concat('找不到"', FindStr, '"')), '记事本',
       MB_ICONINFORMATION);
 end;

 procedure TTextEditorForm.mni_FontClick(Sender: TObject);
 begin
   with TFontDialog.Create(nil) do
   begin
     Font := Memo1.Font;
     Options := [fdApplyButton];
     if Execute() then
       Memo1.Font := Font;
   end;
 end;

 procedure TTextEditorForm.mni_GoToClick(Sender: TObject);
 begin
   GoToMemoLineDialog(Memo1);
 end;

 procedure TTextEditorForm.mni_InsertRightStrClick(Sender: TObject);
 var
   str: string;
 begin
   str := InputBox('提示', '放在每行的最右边的字符串', ' - Hello Roman');
   strfunction.InsertString(Memo1, str);
 end;

 procedure TTextEditorForm.mni_PageSetupClick(Sender: TObject);
 begin
   With TPageSetupDialog.Create(nil) do
     Execute;
 end;

 procedure TTextEditorForm.mni_PasteClick(Sender: TObject);
 begin
   Memo1.PasteFromClipboard;
 end;

 procedure TTextEditorForm.mni_PrintClick(Sender: TObject);
 begin
   MemoPrinter(Memo1); // 标题修改为文件名
 end;

 procedure TTextEditorForm.mni_StatusBarClick(Sender: TObject);
 begin
   if mni_StatusBar.Checked then
   begin
     bStatueBar := True;
     StatusBar1.Visible := True;
   end

   else
   begin
     StatusBar1.Visible := False;
     bStatueBar := False;
   end;
 end;

 procedure TTextEditorForm.mni_UndoClick(Sender: TObject);
 begin
   Memo1.Undo;
 end;

 procedure TTextEditorForm.mni_ViewHelpClick(Sender: TObject);
 begin
   ShellExecute(Handle, 'open', 'http://www.cnblogs.com/xe2011/p/3483809.html',
     , , SW_SHOWNORMAL);
 end;

 procedure TTextEditorForm.mni_WordWrapClick(Sender: TObject);
 begin
   if mni_WordWrap.Checked then
   begin
     Memo1.ScrollBars := ssVertical; // 自动换行
     Memo1.WordWrap := True;

     // 转到 和  状态栏不可用  和状态栏菜单不可用 check为false
     mni_GoTo.Enabled := False;

     // ----------------------------------------
     mni_StatusBar.Enabled := False;
     mni_StatusBar.Checked := False;
     StatusBar1.Visible := False;
   end
   else
   begin
     Memo1.ScrollBars := ssBoth; // 取消自动换行
     Memo1.WordWrap := False;

     mni_GoTo.Enabled := True;

     // ----------------------------------------
     mni_StatusBar.Enabled := True;
     mni_StatusBar.Checked := bStatueBar;
     StatusBar1.Visible := bStatueBar;
   end;
   // if bStatueBar=True then Caption:='True';
   // if bStatueBar=False then Caption:='False';

 end;

 procedure TTextEditorForm.NoBankClick(Sender: TObject);
 begin
   strfunction.ClearBlankLine(Memo1);
 end;

 procedure TTextEditorForm.NoLetterClick(Sender: TObject);
 begin
   strfunction.ClearLetter(Memo1);
 end;

 procedure TTextEditorForm.NoNumberClick(Sender: TObject);
 begin
   strfunction.ClearNum(Memo1);
 end;

 procedure TTextEditorForm.NoSpaceClick(Sender: TObject);
 begin
   strfunction.ClearBlankSpace(Memo1);
 end;

 procedure TTextEditorForm.mni_SetTopMosetClick(Sender: TObject);
 begin
   if mni_SetTopMoset.Checked then
     FormStyle := fsStayOnTop
   else
     FormStyle := fsNormal;
 end;

 procedure TTextEditorForm.SetUiCHS();
 begin
   // SetUICH
   // ------------------------------------------
   mni_File.Caption := '文件(&F)';
   FileNew.Caption := '新建(&N)';
   FileOpen.Caption := '打开(&O)...';
   FileSave.Caption := '保存(&S)';
   FileSaveAs.Caption := '另存为(&A)...';
   mni_PageSetup.Caption := '页面设置(&U)...';
   mni_Print.Caption := '打印(&P)...';
   mni_Exit.Caption := '退出(&X)';
   // ------------------------------------------
   mni_Edit.Caption := '编辑(&E)';
   mni_Undo.Caption := '撤消(&U)           Ctrl+Z';
   mni_Cut.Caption := '剪切(&T)           Ctrl+X';
   mni_Copy.Caption := '复制(&C)           Ctrl+C';
   mni_Paste.Caption := '粘贴(&P)           Ctrl+V';
   mni_Delete.Caption := '删除(&L))          Del';
   mni_Find.Caption := '查找(F)...        Ctrl+F';
   mni_FindNext.Caption := '查找下一个(&N)     F3';
   mni_Replace.Caption := '替换(&R)...        Ctrl+H';
   mni_GoTo.Caption := '转到(&G)...        Ctrl+G';
   mni_SelectAll.Caption := '全选(&A)           Ctrl+A';
   mni_DateTime.Caption := '时间/日期(&D)      F5';
   // ------------------------------------------
   mni_Format.Caption := '格式(&O)';
   mni_WordWrap.Caption := '自动换行(&W)';
   mni_Font.Caption := '字体(&F)...';
   // ------------------------------------------
   mni_View.Caption := '查看(&V)';
   mni_StatusBar.Caption := '状态栏(&S)';
   mni_SetTopMoset.Caption := '置顶(&T)';
   // ------------------------------------------
   mni_Help.Caption := '帮助(&H)';
   mni_ViewHelp.Caption := '查看帮助(&H)';
   mni_About.Caption := '关于记事本(&A)';

   // // ------------------------------------------
   // Form1Title := '无标题 - 记事本';
   // Line := '行'; //
   // col := '列';
   // sGoToTitle := '转到指定行'; // 轮到行的 输入对话框的标题
   // sGoToTips := '行号(&L):'; //
   // MsgBoxTitle := '行数超过了总行数';
   // MsgBoxHint := '记事本 - 跳行';
   // shellAboutText := '关于 - 记事本';
   // FileDialogFilter := '文本文档(*.txt)|*.txt|所有文件(*.*)|*.*';

 end;

 procedure TTextEditorForm.SetUiEN();
 begin
   // SetUIENGLISH
   // ------------------------------------------
   mni_File.Caption := '&File';
   FileNew.Caption := '&New';
   FileOpen.Caption := '&Open...';
   FileSave.Caption := '&Save';
   FileSaveAs.Caption := 'Save &As...';
   mni_PageSetup.Caption := 'Page Set&up...';
   mni_Print.Caption := '&Print...';
   mni_Exit.Caption := 'E&xit';
   // ------------------------------------------
   mni_Edit.Caption := '&Edit';
   mni_Undo.Caption := '&Undo           Ctrl+Z';
   mni_Cut.Caption := 'Cu&t           Ctrl+X';
   mni_Copy.Caption := '&Copy           Ctrl+C';
   mni_Paste.Caption := '&Paste)           Ctrl+V';
   mni_Delete.Caption := '&Delete          Del';
   mni_Find.Caption := '&Find...        Ctrl+F';
   mni_FindNext.Caption := 'Find &Next     F3';
   mni_Replace.Caption := '&Replace...        Ctrl+H';
   mni_GoTo.Caption := '&Go To...        Ctrl+G';
   mni_SelectAll.Caption := 'Select &All           Ctrl+A';
   mni_DateTime.Caption := 'Time/&Date      F5';
   // ------------------------------------------
   mni_Format.Caption := 'F&ormat';
   mni_WordWrap.Caption := '&Word Wrap';
   mni_Font.Caption := '&Font...';
   // ------------------------------------------
   mni_View.Caption := '&View';
   mni_StatusBar.Caption := '&StatueBar';
   mni_SetTopMoset.Caption := '&TopMost';
   // ------------------------------------------
   mni_Help.Caption := '&Help';
   mni_ViewHelp.Caption := 'View H&elp';
   mni_About.Caption := '&About Notepad';

   // // ------------------------------------------
   // Form1Title := 'Untitled - Notepad';
   // Line := 'Ln'; //
   // col := 'Col';
   // sGoToTitle := 'Go To Line'; // 轮到行的 输入对话框的标题
   // sGoToTips := '&Line Number:'; //
   // MsgBoxTitle := 'The line number is beyond the total number of lines';
   // MsgBoxHint := 'Notepad - Goto Line';
   // shellAboutText := ' - Notepad';
   // FileDialogFilter := 'Text File(*.txt)|*.txt|All File(*.*)|*.*';
 end;

 procedure TTextEditorForm.Total1Click(Sender: TObject);
 var
   Line: Integer;
   Count: Integer;
   en, cn: Integer;
   s: string;
 begin
   with Memo1 do
   begin
     Line := Memo1.Lines.Count;
     Count := Length(Memo1.Lines.text);
     en := strfunction.ENWordsCount(text);
     cn := strfunction.CNWordsCount(text);
   end;
   s := Format
     ('行                          %d '#'字符(全部 包括空格)  %d '#'字符(非汉字 无空格)  %d '#'汉字(汉字字符)         %d',
     [Line, Count, en, cn]);
   Application.MessageBox(PWideChar(s), '统计 - 记事本', MB_ICONINFORMATION);
 end;

 procedure TTextEditorForm.upperCaseClick(Sender: TObject);
 begin
   strfunction.UpperSelText(Memo1);
 end;

 procedure TTextEditorForm.UpperFirstLatterClick(Sender: TObject);
 begin
   strfunction.UpperFistLetter(Memo1);
 end;

 // Printers
 procedure TTextEditorForm.MemoPrinter(Memo: TMemo; TitleStr: string = '无标题');
 var
   Left: Integer;
   Top: Integer;
   i, j, X, Y: Integer; // PageHeight,
   PagesStr: String;
   posX, posY, Posx1, posY1: Integer;
   PrintDialog1: TPrintDialog;
 begin
   Left := ;
   Top := ;
   Y := Top; //
   X := Left; //
   j := ;
   PrintDialog1 := TPrintDialog.Create(Application);
   if PrintDialog1.Execute then
   begin
     if Memo1.text = '' then
       Exit; // 文本为空 本次操作不会被执行

     With Printer do
     begin
       BeginDoc; // 另存的打印的文件名 如何实现  默认为 .jnt
       // Form2.Show;
       Canvas.Font := Memo.Font;
       // -------------------------------------------------------------------------
       // 打印文件名的标题
       // TitleStr:='无标题';
       posX := (PageWidth div ) - Length(TitleStr) * ; // x+;
       posY := (PageHeight * ) div ;

       // 第N页的标题
       PagesStr := Format('第 %d 页', [Printer.PageNumber]);
       Posx1 := (PageWidth div ) - Length(PagesStr) * ;
       posY1 := (PageHeight * ) div ;
       // -------------------------------------------------------------------------
       for i :=  to Memo.Lines.Count -  do
       begin
         Canvas.TextOut(X, Y, Memo.Lines[i]); // TextOut(Left,Top,string);
         Y := Y + Memo.Font.Size * ;
         // Memo.Font.Size*为行间距 第1行与第2行的间距,和3,与4,...

         if (Y > PageHeight - Top) then
         begin
           Canvas.TextOut(posX, posY, TitleStr);
           for j :=  to Printer.PageNumber do
           begin
             PagesStr := Format('第 %d 页', [j]);
             Canvas.TextOut(Posx1, posY1, PagesStr);
             // Form2.Label1.Caption := System.Concat(' 正在打印', ##, TitleStr,
             // ##, Format('第 %d 页', [j]));
             // if Form2.Tag =  then
             // begin
             // Abort;
             // Exit;
             // end;
           end;
           NewPage;
           Y := Top;
         end;
       end;
       Canvas.TextOut(posX, posY, TitleStr);
       Canvas.TextOut(Posx1, posY1, Format('第 %d 页', [j]));
       // Form2.Close;
       EndDoc;
     end;
   end;
 end;

 procedure TTextEditorForm.LoadConfig(Sender: TObject);
 begin
   ReadformState('MainForm', AppINI, Self);

   with TIniFile.Create(AppINI) do
   begin
     Memo1.Font.Name := ReadString('Memo', 'FontName', '宋体');
     Memo1.Font.Size := ReadInteger('Memo', 'Size', );
     mni_StatusBar.Checked := ReadBool('Other', 'StatueBarChecked', True);
     mni_WordWrap.Checked := ReadBool('Other', 'WordWrapChecked', True);
     Free;
   end;
 end;

 procedure TTextEditorForm.SaveConfig(Sender: TObject);
 begin
   WriteformState('MainForm', AppINI, Self);

   with TIniFile.Create(AppINI) do
   begin
     WriteString('Memo', 'FontName', Memo1.Font.Name);
     WriteInteger('Memo', 'Size', Memo1.Font.Size);
     WriteBool('Other', 'StatueBarChecked', mni_StatusBar.Checked);
     WriteBool('Other', 'WordWrapChecked', mni_WordWrap.Checked);
     Free;
   end;
 end;

 procedure TTextEditorForm.act_SetCaretPosExecute(Sender: TObject);
 begin
   if GetUserDefaultUILanguage() = $ then // SetUiCHS // Caption:='简体中文';
     StatusBar1.Panels[].text := Format('  %s %d %s,%s %d %s ',
       [sLine, Memo1.CaretPos.Y + , scol, sLine, Memo1.CaretPos.X + , scol])
   else
     // SetUiEN;  //Caption:='英文';
     StatusBar1.Panels[].text := Format('  %s %d ,%s %d ',
       [sLine, Memo1.CaretPos.Y + , scol, Memo1.CaretPos.X + ]);
 end;

 end.