Delphi 删除字符串中的回车

Delphi 删除字符串中的回车

/// <summary>

/// 删除字符串中的回车

/// </summary>

/// <param name="mStr_Base64">需要删除回车的字符串</param>

/// <returns>去掉回车后的字符串</returns>

function mDeleteEnter(mStr_Base64: string): string;

var

  mLen, i: Integer;

begin

  Result := '';

  mLen := Length(mStr_Base64);

  for i := 1 to mLen do

  begin

    if ord(mStr_Base64[i]) in [10, 13] then

      mStr_Base64[i] := ' ';    // 去掉回车符

    Result := mStr_Base64;

  end;

end;

————————————————

原文链接：https://blog.csdn.net/qq_44111597/article/details/113124205