delphi 基础学习 字符串去掉回车符

本文整理自网络，侵删。

 
procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
len,i:integer;
begin
     str := Memo1.Text;
      if str <> '' then
      begin
        len := Length(str);
        for i := 1 to len do
        begin
          if ord(str[i]) in [10, 13] then str[i] := ' ';    // 先去掉回车符
          memo2.text:=str;
        end;
      end;


end;

另一个方法：str :=  StringReplace(str, #13#10, '', [rfReplaceAll]); //非常简单去掉回车符
 

相关阅读 >>

Delphi 判断表字段是否存在

Delphi 连接 ssl tls 1.2

Delphi输入字符与tlistbox项目匹配

Delphi firedac连接mysql的时候报错

Delphi xe 获取android 系统版本

Delphi版ip地址与整型互转

Delphi tscrollbar 用于滚动窗口、组件内容

Delphi 如何将memo或richedit保存为utf 8文本文件？

Delphi webbrowser载入自定义html内容并显示

Delphi版文件夹加密软件源代码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 基础学习 字符串去掉回车符