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中基于内容检测图片格式（非扩展名）

Delphi 检验指定字符串网址是否输入正确

Delphi中quotedstr介绍及使用

Delphi中用ado连接加密access数据库

dekphi 智能《疯狂刷新》辅助工具v3.1更新开源

Delphi异常死亡进程的自动复活

Delphi 搭配hotkeyedit控件来解决问题

Delphi 禁止alt+f4关闭

Delphi格式化输出函数

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

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