delphi 判断字符串如果没有被引号包含则添加引号

//判断字符串如果没有被引号包含则添加引号

function IncludeQuoteIfNeeded(const s: String): String;

begin

  if pos('"', s) = 0 then

    result := '"' + s + '"'

  else

    result := s;

end;