var
s: string; s := memo.lines.text;
s := stringreplace(s, #13#10, '', [rfReplaceAll]);
memo.lines.text := s;
s: string; s := memo.lines.text;
s := stringreplace(s, #13#10, '', [rfReplaceAll]);
memo.lines.text := s;
解决方案 »
- VclSkin 编译问题
- 求教高手:delphi 对msxml 中文乱码问题? 急!!!!!!!!!!
- dbedit显示格式的问题
- 如何取得Tradiogroup控件中的值
- 界面隐藏的一个很弱的问题?
- 救命!如何获取WebSnap Apllication的TEndUserSessionAdapter中封装的用户登陆信息!,急,在线等!
- 关于数据库的小问题——————在线等
- 怎样用语句写FileListBox1的路径(现用)
- 关于全局变量传到另外一个FORM无值的问题?急!!急!!急!!急!!急!!
- 紧急求救!70分送上
- !!!那里有 RedhatLinux7.1或RedhatLinux7.0的免费下载!!!
- 我想找一个通用的安装程序制作工具,比如 CreateInstall、InstallShield 什么的,谁能告诉我?
for i:= 0 to Memo.Lines.Count-1 do
s := s+ Memo.Lines[i];