频道分类

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

作者:admin 来源: 日期:2020/3/5 20:36:17 人气: 标签:

 
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]); //非常简单去掉回车符