最
最笨菜鸟
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怎么用!!!???
来自: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怎么用!!!???