关于richedit中文本的处理(100)

  • 主题发起人 主题发起人 htrun
  • 开始时间 开始时间
H

htrun

Unregistered / Unconfirmed
GUEST, unregistred user!
数据已经加载在richedit,均为纯文本,共4000多行,如何查找并删除某特定字符之后的文本?如该文本的中某处有“大富翁”字符段,如何查找到“大富翁”并且删除“大富翁”后面的所有内容?
 
pos('大富翁',richedit.text)
 
stringreplace('大富翁','',richedit.text)
 
楼上的函数是自己写的。
 
var str,substr:string;begin substr:='大富翁'; str:=richedit.text; str:=copy(str,1,pos(substr,str)+length(substr)); richedit.text:=str;end;
 
后退
顶部