Delphi 更新带引号的值 - Delphi / 数据库相关

大家好
  我现在遇到这样一个问题，用delphi 自带的adoquery来更新数据，但当一个字段的内容含引号的时候，如何处理呢。
  我是这样做的，delphi 语法如下：
  with Appdm.qry_Upd do
  begin
  close;
  sql.Add('Update IT_PcFiksInfo SET FixsName='''+FixsName+''',OfType='''+OfType+''','+
  'OfArea='''+OfArea+''',OfDept='''+OfDept+''','+
  'UserOfID='''+UserOfID+''',UserOfName='''+UserOfName+''','+
  'PcConfiguration='''+QuotedStr(PcConfiguration) +',OfficeAddr='''+OfficeAddr+''','+
  'Depreciation='''+Depreciation+''',FixsPrice='''+FloatToStr (FixsPrice)+''' where pcid='''+pcid+'''');
  ExecSQL;
  end; 
但当有一个字段值为含有引号的时候(如UserOfName字段的值为周's)，就会出错。sql Server Profiler 跟踪的结果如下:
Update IT_PcFiksInfo SET 
FixsName='IBM笔记本',OfType='C-BJB',OfArea='F-03',OfDept='D10',UserOfID='',UserOfName='周'S',PcConfiguration='14'英寸',OfficeAddr='资讯部办公室',Depreciation='',FixsPrice='0' 
where pcid='C-ZJTESTA'
请问高手有没有比较好的处理带引号字段值的方法。
在此先谢谢大家了

---

' replace 成 ''

---

引用