从TMemo中删除从开头到光标处的内容,用循环执行memo1.Lines.Delete(memo1.CaretPos.Y),内容多就停止响应了,有没有别的方法实现阿?????
解决方案 »
- 关于数据库浮点数的问题
- 请问如何生成200个左右的随机不重复4位数?
- 线程接收WM_COPYDATA消息,为什么收到的数据有乱码?
- 为什么我用Excel.Application创建的对象操作完excel文件后,在我的系统盘自动出现被操作文件的快捷方式呢?
- 请问cxgrid中怎么强制要求输入某几个字段
- 怎样记忆用户调整dbgrid列宽度(下次运行程序列宽是上次关闭程序前的列宽)
- 发布VCProtect虚拟机加壳工具
- 关于图片透明色的问题
- 为什么我用MediaPlayer制作的录音机程序播放不了大一些的(例如4.7M)WAV文件呢?
- 急急急!!谁能就救我?(高分请教)
- 一个关于 文件流的问题
- 如何以最高的效率格式化字符窜
var a:string;
b:integer;
begin
a:=memo1.Text;
b:=memo1.SelStart;
delete(a,1,b);
memo1.Text:=a;
end;哈哈,我没技术,但有想法,搞定了!!楼猪给分