Delphi 将字符串转换为C-escape转义字符串格式

本文整理自网络，侵删。

 
const
// Special symbols
  _TAB_   = #9;
  _CR_    = #13;
  _NL_    = #10;
  _DELIM_ = ' :;.,+-<>/*%^=()[]|&~@#\`{}'+_TAB_;
  _SPACE_ = ' ';

// Convert string to C-escape string format
function ConvStr(Value: String): String;
var I: Integer;
begin

  Result := '';
  for I := 1 to Length(Value) do begin
    case Value[I] of
      #34: Result := Result + '\' + #34;
      #39: Result := Result + '\' + #39;
      _TAB_: Result := Result + '\t';
      _NL_: begin end;
      _CR_: Result := Result + '\n';
      '\': Result := Result + '\\';
      else Result := Result + Value[I];
    end;
  end;
end;

// Convert string from C-escape string format
function UnconvStr(Value: String): String;
var I: Integer;
begin
  Result := '';
  I := 1;
  while I<=Length(Value) do begin
    if Value[I]='\' then begin
      if I=Length(Value) then break;
      Inc(I);
      case Value[I] of
        'n': Result := Result + _CR_;
        't': Result := Result + _TAB_
        else Result := Result + Value[I];
      end;
    end else Result := Result + Value[I];
    Inc(I);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Text:=ConvStr(Memo1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo2.Text:=UnconvStr(Memo1.Text);
end;
 

相关阅读 >>

Delphi application.messagebox 详解

Delphi 判断文件路径，不存在则建立

Delphi的字符截取函数leftstr,midstr,rightstr的介绍以及字符串拆分

Delphi登陆验证方法

理解Delphi中sender用法

Delphi之autorun(复制自身+循环扫描)

Delphi access数据库 主键

Delphi getvolumeinformation获取硬盘分区信息

Delphi打开文件夹并定位到一个文件

Delphi xe5 android实现繁体字到简体字的转换函数

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

转载请注明出处：木庄网络博客 » Delphi 将字符串转换为C-escape转义字符串格式