Delphi QuotedStr函数的原型

function QuotedStr(const S: string): string;

var

I: Integer;

begin

Result := S;

for I := Length(Result) downto 1 do

if Result[I] = ”” then Insert(””, Result, I);

Result := ”” + Result + ””;

end;