memo用法总结

添加

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;