小弟使用AdoQuery做資料查詢，其中帶有日期時間字串，但sql字串無法加入  ' 這個字元，不然就會出現字串不正常的錯誤，舉例來說
<textarea class="delphi" rows="10" cols="60" name="code"> var Year1,Year2,Mon1,Mon2,Date1,Date2 : word; Sql1 : string; Sql2 : string; Sql3 : string; Sql4 : string; Sql5 : string; begin ADOQuery1.Close; ADOQuery2.Close; DecodeDate(DateTimePicker1.datetime,Year1, Mon1, Date1); DecodeDate(DateTimePicker3.datetime,Year2, Mon2, Date2); ADOQuery1.SQL.Clear; ADOQuery2.SQL.Clear; Sql1 := 'select * From RawAnalog'; SQL2 := IntToStr(Year1) '/' IntToStr(Mon1) '/' IntToStr(Date1) ' ' TimeToStr(DateTimePicker2.DateTime) '.000'; SQL3 := IntToStr(Year2) '/' IntToStr(Mon2) '/' IntToStr(Date2) ' ' TimeToStr(DateTimePicker4.DateTime) '.000'; Sql4 := 'where UTCDateTime Between ' ''' SQL2 ''' ' And ' ''' SQL3 '''; Sql5 := 'select Count(*) As Total From RawAnalog'; ADOQuery1.SQL.Add(Sql1); ADOQuery1.SQL.Add(SQL4 'ORDER BY UTCDateTime'); ADOQuery1.Open; end;</textarea> 以上的SQL4就會出現錯誤，sql字串會被截斷，小第只好採另一種方法處理 <textarea class="delphi" rows="10" cols="60" name="code"> Sql4 := 'where UTCDateTime Between ' chr(39) SQL2 chr(39) ' And ' chr(39) SQL3 chr(39); </textarea> 想請教大大們有比較正確的寫法嗎

字串中兩個單引號等於sql一個單引號所以可以改成如下：
Sql4 := 'where UTCDateTime Between ' '''' SQL2 '''' ' And ' '''' SQL3 '''';
更簡潔的寫法是
Sql4 := 'where UTCDateTime Between ''' SQL2 ''' And ''' SQL3 '''';

------
受人點滴，湧泉以報。

也可以用 QuotedStr()

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

感謝兩位大大精彩的解答，小弟解決了，感恩