StringReplace(字符串, #13#10, '', [rfReplaceAll])
解决方案 »
- Delphi 中如何调用C语言编译的动态连接库---------在线等待!!!!!!
- 数据库与文本不在同一台机器上,将文本导入数据库问题。
- 托盘程序弹出菜单后,不能自动关闭!!!!!
- BDE调用SQL数据库的问题(delphi新手)
- 初学者的问题:query或adoquery中,如果更新数据的记录。现在总是提示我不在修改模式下
- 谁用过这个消息CBN_SELCHANGE,能否给个例子。
- 我在修改三层结构的数据时,为什么会报错’record not found,or change by other user'
- ★★★ 使用ADO如何连接远程数据库 ★★★
- DBGRID控件问题请教!急!!!!
- 关于TWebBrowser的问题
- 虚心请教!如何取得另一程序的窗体的句柄?
- 请问在Webbrowser中如果复制页面的内容?
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
tempstr:String;
begin
s:='aaa'+Chr(13)+'bbb';
tempStr:='';
for i:=1 to Length(s) do
if s[i]<>chr(13) then
tempStr:=tempStr+s[i];
s:=tempStr;
end;
memo.loadfromfile()
然后.....