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