本文整理自网络,侵删。
const// Special symbols _TAB_ = #9; _CR_ = #13; _NL_ = #10; _DELIM_ = ' :;.,+-<>/*%^=()[]|&~@#\`{}'+_TAB_; _SPACE_ = ' ';
// Convert string to C-escape string formatfunction 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 formatfunction 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);beginMemo2.Text:=ConvStr(Memo1.Text);end;
procedure TForm1.Button2Click(Sender: TObject);beginMemo2.Text:=UnconvStr(Memo1.Text);end;
相关阅读 >>
Delphi 双击listbox1内容,数据插入到memo1/synedit1鼠标指定位置
更多相关阅读请进入《Delphi》频道 >>