举例:
var
ss,s: string;
begin
ss := 'Delphi';
s := QuotedStr(ss);
ShowMessage(s); {'Delphi'}
end;
SysUtils 单元下的公用函数目录