16,748
社区成员
发帖
与我相关
我的任务
分享[新手提问]delphi的TMemo中删除问题？
从TMemo中删除从开头到光标处的内容，用循环执行memo1.Lines.Delete(memo1.CaretPos.Y)，内容多就停止响应了，有没有别的方法实现阿？？？？？
...全文
请发表友善的回复…
发表回复
我TMD就是天才 2008-01-19
- 打赏
- 举报
第一次在CSDN拿分,感动ING!
LXHXQY 2008-01-18
- 打赏
- 举报
学习中
gongzhy 2008-01-18
- 打赏
- 举报
哈哈，不错，给分了
我TMD就是天才 2008-01-18
- 打赏
- 举报
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;
哈哈,我没技术,但有想法,搞定了!!楼猪给分
var a:string;
b:integer;
begin
a:=memo1.Text;
b:=memo1.SelStart;
delete(a,1,b);
memo1.Text:=a;
end;
哈哈,我没技术,但有想法,搞定了!!楼猪给分
bluy_sky 2008-01-17
- 打赏
- 举报
可以使用RichEdit来操作 RichEdit 比Memo要强大一点 而且好操作
gongzhy 2008-01-17
- 打赏
- 举报
怎么没人看阿？？
