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;
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。
发布者:全栈程序员栈长,转载请注明出处:https://javaforall.cn/180670.html原文链接:https://javaforall.cn
扫码关注腾讯云开发者
领取腾讯云代金券
Copyright © 2013 - 2025 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号:粤B2-20090059 深公网安备号 44030502008569
腾讯云计算(北京)有限责任公司 京ICP证150476号 | 京ICP备11018762号 | 京公网安备号11010802020287
Copyright © 2013 - 2025 Tencent Cloud.
All Rights Reserved. 腾讯云 版权所有