关于StringReplace的问题!!! (为什么没有人回答我!!) (1分)

  • 主题发起人 主题发起人 最笨菜鸟
  • 开始时间 开始时间

最笨菜鸟

Unregistered / Unconfirmed
GUEST, unregistred user!
引用:::::
来自:skyweb, 时间:2002-1-18 22:03:00, ID:868825
其实菜鸟的代码基本上可以实现想要的功能:把RichEdit1中的文本去掉回车换行后转给
RichEdit2,虽然效率比较低。不过在procedure TForm1.Button1Click(Sender: TObject);中你忘了把
RichEdit2的内容先清空,所以……。

改一下:
procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit2.Lines.Text:=StringReplace(RichEdit1.Lines.Text,#13#10,'');
end;


===================================
===================================

代码为什么没法执行! 报错为没有足够的实际参数!!!
我看了帮助! 对于这个函数! 其中的Flags:TreplaceFlags怎么用!!!???
 
RichEdit2.Lines.Text:=StringReplace(RichEdit1.Lines.Text,#13#10,'',[])
看一下帮助,还有一个标志位呢。
 
确切的说,实现你的功能,应该这样!
RichEdit2.Lines.Text:=StringReplace(RichEdit1.Lines.Text,#13#10,'',[rfReplaceAll]);
 
实在感谢!!!
 
后退
顶部