给TStrings添加或去除引号

  • 函数类型: 自定义函数

  • 函数说明:

给TStrings添加或去除引号


  • 代码如下:



 procedure QuotedStrings(iStrings: TStrings; iQuoted: Boolean = True);
var
   i: Integer;
begin
   for i := 0 to iStrings.Count - 1 do
   begin
    if iQuoted then
      iStrings[i] := QuotedStr(iStrings[i])
    else
      iStrings[i] := AnsiReplaceStr(iStrings[i], '''', '');
   end;
end;



  • 用法示例:

无 



《学习大师原创文档,请勿转载,侵权必究》





联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678