添加

mmo1.Lines.add('新加的一行');//追加一行文字

mmo1.Lines.Insert(1,'新插入一行');//在指定位置插入一行

删除

mmo1.Lines.Delete(1);  //删除第2行，0是第一行

清空

mmo1.Clear;//清空所有记录

保存为文件

mmo1.Lines.SaveToFile('mmotest.txt');//保存为文件

打开加载文件

 mmo1.Lines.LoadFromFile('mmotest.txt'); //从文件加载

删除所选内容

mmo1.ClearSelection;

备份删除的选择的内容

var

selbackup:string;

begin

selbackup:=mmo1.SelText;

mmo1.ClearSelection;

end;

//

procedure TForm2.btn11Click(Sender: TObject);

var

selbackup:string;

begin

selbackup:=mmo1.SelText;

mmo1.ClearSelection;

redt1.Text:=selbackup;

end;

 

撤销删除

mmo1.Undo;

彻底删除无法恢复

mmo1.ClearSelection;

mmo1.ClearUndo;