Delphi中QuotedStr-

Delphi中QuotedStr()1.定义给字符串两边加单引号并返回.声明:functionQuotedStr(constS:string):string;用函数QuotedStr把字符串S转换成为用引号括起来的字符串。单引号”’”将**入到字符串s的最前和最后。2.范例特别可以应用在delphi的中的SQL语句，避免漏写的情况。lsstr:=…+QuotedStr（‘STR’）+…lsstr:=…+’WHERE‘’‘+‘abc‘+’’’…’QTmpR2.Close;QT_delphiquotedstr

1.定义
给字符串两边加单引号并返回.
声明:function QuotedStr(const S: string): string;
用函数 QuotedStr把字符串S转换成为用引号括起来的字符串。单引号” ’ ” 将**入到字符串s的最前和最后。

2.范例
特别可以应用在delphi的中的SQL语句，避免漏写的情况。
lsstr := …+ QuotedStr（‘STR’）+…
lsstr := …+ ’ WHERE ‘’‘+‘abc ‘+’’’ …’

 QTmpR2.Close; QTmpR2.SQL.Text := 'INSERT INTO  A_IN (TK_TIME，ST1,ST2) VALUES ( GETDATE(),' +                                   QuotedStr(Trim(qry.FieldByName('ST1').AsString)) + ',' +                                   QuotedStr(Trim(qryERP.FieldByName('ST2').AsString))  +')' ;TmpR2.ExecSQL;

希望我今天分享的这篇文章可以帮到您。