Delphi练习五——文本编辑器（简单）

很简单的一个文本编辑器：

unit Unit1;

interface

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

type
  TfrmTextEditor = class(TForm)
    mmoEditArea: TMemo;
    btnEditCopy: TButton;
    btnEditCut: TButton;
    btnEditPaste: TButton;
    btnFileOpen: TButton;
    btnFileSave: TButton;
    dlgOpenFile: TOpenDialog;
    dlgSaveFile: TSaveDialog;
    procedure btnFileOpenClick(Sender: TObject);
    procedure btnFileSaveClick(Sender: TObject);
    procedure btnEditCopyClick(Sender: TObject);
    procedure btnEditCutClick(Sender: TObject);
    procedure btnEditPasteClick(Sender: TObject);
    procedure frmTextEditorCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmTextEditor: TfrmTextEditor;

implementation

{$R *.dfm}
//窗体显示事件处理过程

//“打开文件”按钮点击事件处理过程

procedure TfrmTextEditor.btnFileOpenClick(Send