Delphi 添加或解除引号

本文整理自网络，侵删。

 
添加或解除引号:
function QuotedString: string;
function QuotedString(const QuoteChar: Char): string;

function DeQuotedString: string;
function DeQuotedString(const QuoteChar: Char): string;
//--------------------------------------------------------------------------------
var
  str1, str2: string;
begin
  str1 := 'Delphi';

  str2 := str1.QuotedString;        // 'Delphi'
  str2 := str1.QuotedString('"');   // "Delphi"

  str1 := '"Delphi"';
  str2 := str1.DeQuotedString('"'); // Delphi
end;
 

相关阅读 >>

Delphi 过滤开头 结尾 全部 空格的函数

Delphi实现电脑端微信图片文件解密

Delphi实现百度地图经纬度与地址互转

Delphi的dll中获取文件路径

Delphi 在firemonkey应用程序中使用torientationsensor获取设备倾斜和指南针航向

Delphi 提升Delphi 启动加载速度

Delphi pi 精确计算返回圆周率

Delphi 取16进制字符的10进制的integer值

Delphi对access数据库安全加密方法

Delphi 两个exe之间共享数据

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

转载请注明出处：木庄网络博客 » Delphi 添加或解除引号