網(wǎng)站開(kāi)發(fā)的背景互聯(lián)網(wǎng)營(yíng)銷(xiāo)師考試內(nèi)容
Delphi QuotedStr函數(shù)的原型
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;
var
? I: Integer;
begin
? Result := S;
? for I := Length(Result) downto 1 do
??? if Result[I] = '''' then Insert('''', Result, I);
? Result := '''' + Result + '''';
end;