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 webbrowser获取页面全部链接

Delphi adoquery查询用户是否存在

Delphi xe使用tjsonobject解析json数据

Delphi 将dbgrid的数据导出到excel文件保存

Delphi xe [dcc32 fatal error] f2039 could not create output file 问题的解决

Delphi的cpu调试窗口

Delphi idhttp 设置cookie 和访问后读取cookie 值

Delphi重写一个字符串分割函数

Delphi2007-Delphi2010 程序不出现在任务栏的方法

Delphi 遍历fdquery1所有结果

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

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