[新手提问]delphi的TMemo中删除问题？

Question

从TMemo中删除从开头到光标处的内容，用循环执行memo1.Lines.Delete(memo1.CaretPos.Y)，内容多就停止响应了，有没有别的方法实现阿？？？？？

Answer 1

可以使用RichEdit来操作  RichEdit 比Memo要强大一点 而且好操作

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var a:string;
b:integer;
begin
a:=memo1.Text;
b:=memo1.SelStart;
delete(a,1,b);
memo1.Text:=a;
end;哈哈,我没技术,但有想法,搞定了!!楼猪给分