码迷，mamicode.com
首页 > 其他好文 > 详细

文字录入无限制Undo,Redo的实现

时间：2014-09-18 22:12:54      阅读：229      评论：0      收藏：0      [点我收藏+]

标签：blog   http   io   ar   strong   for   文件   div   art   

这里只针对Edit的内容做一个简单的undo，redo功能；

原理就是，将新增字符和相关信息添加到undo列表，在undo动作时，取记录信息，并在edit中删除新增的字符，然后将此动作添加到redo列表，以便恢复。

 

本程序只对文本框文字的顺序增加做了处理，对于任意位置的删除，复制粘贴等没有进行处理，大家可以根据实际情况完善，增加辅助信息来完成对撤销和恢复的操作。

 

明白了原理，对于其他的操作都是这个道理，比如你画图什么的，保留每个图形的相关信息，然后撤销恢复重画，说的简单，做起来还是需要我们动脑子的^_^

 

为方便查看，将所有代码写到了一个单元。

 

Delphi代码

 

[delphi] view plaincopy
 
  1. unit Unit1;  
  2. interface  
  3. uses  
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  5.   Dialogs, StdCtrls;  
  6. type  
  7.   TUndoInfo = record  
  8.     sText : String;    //每次增加的新字符串，不是整个edit的字符串  
  9.     iLastLen : Integer;//上一次edit内容的长度  
  10.   end;  
  11.   PUndoInfo = ^TUndoInfo;  
  12.   TForm1 = class(TForm)  
  13.     Edit1: TEdit;  
  14.     btn_undo: TButton;  
  15.     btn_redo: TButton;  
  16.     procedure FormCreate(Sender: TObject);  
  17.     procedure Edit1Change(Sender: TObject);  
  18.     procedure btn_undoClick(Sender: TObject);  
  19.     procedure btn_redoClick(Sender: TObject);  
  20.   private  
  21.     { Private declarations }  
  22.     FUnDoList : TList;      //undo列表  
  23.     FReDoList : TList;      //redo列表  
  24.     //添加到undo列表，s:新字符串,lastlen:上一次整个长度  
  25.     procedure AddUnDoAction(s:String;lastlen:Integer);  
  26.     //添加到redo列表  
  27.     procedure AddReDoAction(p:PUndoInfo);  
  28.   public  
  29.     { Public declarations }  
  30.   end;  
  31. var  
  32.   Form1: TForm1;  
  33. implementation  
  34. {$R *.dfm}  
  35. { TForm1 }  
  36. procedure TForm1.AddUnDoAction(s: String;lastlen:Integer);  
  37. var  
  38.   p:PUndoInfo;  
  39. begin  
  40.   New(p);  
  41.   p.sText := s;  
  42.   p.iLastLen := lastlen + Length(s);  
  43.   FUnDoList.Add(p);  
  44. end;  
  45. procedure TForm1.FormCreate(Sender: TObject);  
  46. begin  
  47.   FUnDoList := TList.Create;  
  48.   FReDoList := TList.Create;  
  49.   //添加初始值  
  50.   AddUnDoAction(Edit1.Text,0);  
  51. end;  
  52. { 
  53. 这里只简单的在OnChange事件中来添加 undo内容，实际应用中比这要复杂的多，这里只在 
  54. 这里说明一下简单应用 
  55. }  
  56. procedure TForm1.Edit1Change(Sender: TObject);  
  57. var  
  58.   lastlen:Integer;  
  59.   s:String;  
  60. begin  
  61.   //先取得上一次的最后长度  
  62.   lastlen := PUndoInfo(FUnDoList.Items[FUnDoList.Count - 1]).iLastLen;  
  63.   //本次新录入的字符串  
  64.   s := Copy(Edit1.Text,lastlen+1,Length(Edit1.Text)-lastlen);  
  65.   //添加到undo列表  
  66.   AddUnDoAction(s,lastlen);  
  67. end;  
  68. procedure TForm1.btn_undoClick(Sender: TObject);  
  69. var  
  70.   s,ts:string;  
  71.   lastlen:Integer;  
  72. begin  
  73.   //先取消OnChange事件，否则当修改edit的内容时，会重复触发OnChange事件，导致错误  
  74.   Edit1.OnChange := nil;  
  75.   //因为最后一个是原始值，所以这里判断是否大于1  
  76.   if FUnDoList.Count > 1 then  
  77.   begin  
  78.     s := Edit1.Text;  
  79.     //取上次的值  
  80.     ts := PUndoInfo(FUnDoList.Items[FUnDoList.Count - 1]).sText;  
  81.     lastlen := PUndoInfo(FUnDoList.Items[FUnDoList.Count - 1]).iLastLen;  
  82.     //重新赋给edit内容  
  83.     Delete(s,lastlen,Length(ts));  
  84.     Edit1.Text := s;  
  85.     //添加到redo  
  86.     AddReDoAction(FUnDoList.Items[FUnDoList.Count - 1]);  
  87.     //将该项移出undo列表  
  88.     FUnDoList.Delete(FUnDoList.Count - 1);  
  89.   end;  
  90.   //回复OnChange事件  
  91.   Edit1.OnChange := Self.Edit1Change;  
  92. end;  
  93. procedure TForm1.AddReDoAction(p:PUndoInfo);  
  94. begin  
  95.   FReDoList.Add(p);  
  96. end;  
  97. //重复动作，原理同撤销动作  
  98. procedure TForm1.btn_redoClick(Sender: TObject);  
  99. var  
  100.   s,ts:string;  
  101.   lastlen:Integer;  
  102. begin  
  103.   Edit1.OnChange := nil;  
  104.   if FReDoList.Count > 0 then  
  105.   begin  
  106.     ts := PUndoInfo(FReDoList.Items[FReDoList.Count - 1]).sText;  
  107.     lastlen := PUndoInfo(FReDoList.Items[FReDoList.Count - 1]).iLastLen;  
  108.     Edit1.Text := Edit1.Text + ts;  
  109.     FUnDoList.Add(PUndoInfo(FReDoList.Items[FReDoList.Count - 1]));  
  110.     FReDoList.Delete(FReDoList.Count - 1);  
  111.   end;  
  112.   Edit1.OnChange := Self.Edit1Change;  
  113. end;  
  114. end.  

 

 

C#代码

 

[c-sharp] view plaincopy
 
  1. using System;  
  2. using System.Collections.Generic;  
  3. using System.ComponentModel;  
  4. using System.Data;  
  5. using System.Drawing;  
  6. using System.Text;  
  7. using System.Windows.Forms;  
  8. namespace Test_CSharp_Win  
  9. {  
  10.     public partial class Form2 : Form  
  11.     {  
  12.         List<UnDoInfo> undoList;  
  13.         List<UnDoInfo> redoList;  
  14.         public Form2()  
  15.         {  
  16.             InitializeComponent();  
  17.             undoList = new List<UnDoInfo>();  
  18.             redoList = new List<UnDoInfo>();  
  19.             //添加初始值  
  20.             AddUnDoAction(textBox1.Text, 0);  
  21.         }  
  22.         /// <summary>  
  23.         /// //添加到undo列表  
  24.         /// </summary>  
  25.         /// <param name="s">新字符串</param>  
  26.         /// <param name="lastlen">上一次整个长度</param>  
  27.         private void AddUnDoAction(string s, int lastlen)  
  28.         {  
  29.             UnDoInfo info = new UnDoInfo();  
  30.             info.sText = s;  
  31.             info.iLastLen = lastlen + s.Length;  
  32.             undoList.Add(info);  
  33.         }  
  34.         /// <summary>  
  35.         /// 添加到redo列表  
  36.         /// </summary>  
  37.         /// <param name="info"></param>  
  38.         private void AddReDoAction(UnDoInfo info)  
  39.         {  
  40.             redoList.Add(info);  
  41.         }  
  42.         private void textBox1_TextChanged(object sender, EventArgs e)  
  43.         {  
  44.             string s = string.Empty;  
  45.             int lastlen = 0;  
  46.             //先取得上一次的最后长度  
  47.             lastlen = undoList[undoList.Count - 1].iLastLen;  
  48.             //本次新录入的字符串  
  49.             s = textBox1.Text.Substring(lastlen, textBox1.Text.Length - lastlen);  
  50.             //添加到undo列表  
  51.             AddUnDoAction(s, lastlen);  
  52.         }  
  53.         private void btn_undo_Click(object sender, EventArgs e)  
  54.         {  
  55.             string s = string.Empty;  
  56.             string ts = string.Empty;  
  57.             int lastlen = 0;  
  58.             //先取消TextChanged事件，否则当修改edit的内容时，会重复触发TextChanged事件，导致错误  
  59.             textBox1.TextChanged -= this.textBox1_TextChanged;  
  60.             //因为最后一个是原始值，所以这里判断是否大于1  
  61.             if (undoList.Count > 1)  
  62.             {  
  63.                 s = textBox1.Text;  
  64.                 ts = undoList[undoList.Count - 1].sText;  
  65.                 lastlen = undoList[undoList.Count - 1].iLastLen;  
  66.                 s = s.Remove(lastlen-1, ts.Length);  
  67.                 textBox1.Text = s;  
  68.                 //添加到redo  
  69.                 AddReDoAction(undoList[undoList.Count - 1]);  
  70.                 //将该项移出undo列表  
  71.                 undoList.RemoveAt(undoList.Count - 1);  
  72.             }  
  73.             //恢复TextChanged事件  
  74.             textBox1.TextChanged += this.textBox1_TextChanged;  
  75.         }  
  76.         /// <summary>  
  77.         /// 重复动作，原理同撤销动作  
  78.         /// </summary>  
  79.         /// <param name="sender"></param>  
  80.         /// <param name="e"></param>  
  81.         private void btn_redo_Click(object sender, EventArgs e)  
  82.         {  
  83.             string ts = string.Empty;  
  84.             int lastlen = 0;  
  85.             textBox1.TextChanged -= this.textBox1_TextChanged;  
  86.             if (redoList.Count > 0)  
  87.             {  
  88.                 ts = redoList[redoList.Count - 1].sText;  
  89.                 lastlen = redoList[redoList.Count - 1].iLastLen;  
  90.                 textBox1.Text = textBox1.Text + ts;  
  91.                 undoList.Add(redoList[redoList.Count - 1]);  
  92.                 redoList.RemoveAt(redoList.Count - 1);  
  93.             }  
  94.             textBox1.TextChanged += this.textBox1_TextChanged;  
  95.         }  
  96.     }  
  97.     struct UnDoInfo  
  98.     {  
  99.         //每次增加的新字符串，不是整个edit的字符串  
  100.         public string sText;  
  101.         //上一次edit内容的长度  
  102.         public int iLastLen;  
  103.     }  
  104. }  

 

 

VC代码

 

[cpp] view plaincopy
 
  1. 头文件{DataDefined.h}  
  2. struct UnDoInfo  
  3. {  
  4.     CString sText;  
  5.     int iLastLen;  
  6. };  
  7. CArray<UnDoInfo*,UnDoInfo*&> undoList;  
  8. CArray<UnDoInfo*,UnDoInfo*&> redoList;  
  9. void AddUnDoAction(CString s,int lastlen);  
  10. void AddReDoAction(UnDoInfo* info);  
  11. 主cpp文件，其中要为CEdit指定内容变化响应事件{ON_EN_CHANGE(IDC_EDIT1, &CTest_c_MFCDlg::OnEnChangeEdit1)}  
  12. #include "DataDefined.h"  
  13. BOOL CTest_c_MFCDlg::OnInitDialog()  
  14. {  
  15.     CDialog::OnInitDialog();  
  16.     //这里省略自动生成代码  
  17.     // TODO: 这里添加初始的信息  
  18.     CEdit* edit = (CEdit*)GetDlgItem(IDC_EDIT1);  
  19.     CString s;  
  20.     edit->GetWindowTextW(s);  
  21.     AddUnDoAction(s,0);  
  22.     return TRUE;  // 除非将焦点设置到控件，否则返回 TRUE  
  23. }  
  24. bool canchange = true; //这个控制是否触发CEdit的内容变化事件  
  25. //添加到undo列表，s:新字符串,lastlen:上一次整个长度  
  26. void AddUnDoAction(CString s,int lastlen)  
  27. {  
  28.     UnDoInfo* info = new UnDoInfo;  
  29.     info->iLastLen = lastlen + s.GetLength();  
  30.     info->sText = s;  
  31.     undoList.Add(info);  
  32. }  
  33. //添加到redo列表  
  34. void AddReDoAction(UnDoInfo* info)  
  35. {  
  36.     redoList.Add(info);  
  37. }  
  38. //undo按钮点击事件  
  39. void CTest_c_MFCDlg::OnBnClickedundo()  
  40. {  
  41.     // TODO: 在此添加控件通知处理程序代码  
  42.     canchange = false;  
  43.     CString s,ts;  
  44.     int lastlen;  
  45.     CEdit* edit = (CEdit*)GetDlgItem(IDC_EDIT1);  
  46.     if (undoList.GetCount() > 1)  
  47.     {  
  48.         edit->GetWindowTextW(s);  
  49.         ts = undoList.GetAt(undoList.GetCount()-1)->sText;  
  50.         lastlen = undoList.GetAt(undoList.GetCount() - 1)->iLastLen;  
  51.         if (lastlen > 0)  
  52.             s.Delete(lastlen-1,ts.GetLength());  
  53.         else  
  54.             s = "";  
  55.         edit->SetWindowTextW(s);  
  56.         AddReDoAction(undoList.GetAt(undoList.GetCount() - 1));  
  57.         undoList.RemoveAt(undoList.GetCount() - 1);  
  58.     }  
  59.     canchange = true;  
  60. }  
  61. //redo按钮点击事件  
  62. void CTest_c_MFCDlg::OnBnClickedredo()  
  63. {  
  64.     // TODO: 在此添加控件通知处理程序代码  
  65.     canchange = false;  
  66.     CString s,ts;  
  67.     int lastlen;  
  68.     CEdit* edit = (CEdit*)GetDlgItem(IDC_EDIT1);  
  69.     if (redoList.GetCount() > 0)  
  70.     {  
  71.         edit->GetWindowTextW(s);  
  72.         ts = redoList.GetAt(redoList.GetCount() - 1)->sText;  
  73.         lastlen = redoList.GetAt(redoList.GetCount() - 1)->iLastLen;  
  74.         edit->SetWindowTextW(s + ts);  
  75.         undoList.Add(redoList.GetAt(redoList.GetCount() - 1));  
  76.         redoList.RemoveAt(redoList.GetCount() - 1);  
  77.     }  
  78.     canchange = true;  
  79. }  
  80. //CEdit的change处理代码  
  81. void CTest_c_MFCDlg::OnEnChangeEdit1()  
  82. {  
  83.     // TODO:  如果该控件是 RICHEDIT 控件，则它将不会  
  84.     // 发送该通知，除非重写 CDialog::OnInitDialog()  
  85.     // 函数并调用 CRichEditCtrl().SetEventMask()，  
  86.     // 同时将 ENM_CHANGE 标志“或”运算到掩码中。  
  87.     // TODO:  在此添加控件通知处理程序代码  
  88.     if (!canchange) return;  
  89.     CString s;  
  90.     int lastlen;  
  91.     lastlen = ((UnDoInfo*)undoList.GetAt(undoList.GetCount()-1))->iLastLen;  
  92.     CEdit* edit = (CEdit*)GetDlgItem(IDC_EDIT1);      
  93.     edit->GetWindowTextW(s);  
  94.     s = s.Mid(lastlen,s.GetLength()-lastlen);  
  95.     AddUnDoAction(s,lastlen);  
  96. }  

 参考：

http://blog.csdn.net/bdmh/article/details/6426564

文字录入无限制Undo,Redo的实现

标签：blog   http   io   ar   strong   for   文件   div   art   

原文地址：http://www.cnblogs.com/findumars/p/3980113.html
踩
(0)
赞
(0)
   
举报
评论 一句话评论（0）
登录后才能评论！
分享档案
更多>
2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)
周排行
mamicode.com排行更多图片
更多
友情链接
兰亭集智   国之画   百度统计   站长统计   阿里云   chrome插件   新版天听网
关于我们 - 联系我们 - 留言反馈
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码！