Question

delphi format() 字符串加引号

testvar1:=strtoint(edit1.text);
testvar2:=edit2.text;
testvar3:=strtoint(edit3.text);
sql.Text:=format('insert into test(num,nam,onduty) values(%d,%s,%d)',[testvar1,testvar2,testvar3]);
两个问题
第一我需要给testvar2加单引号，怎么在format中加入单引号
第二个问题strtoint把我的Int数字001给变成了1如何解决？
满意加分
我表达错误，num ，onduty是整形字段，nam是字符串的
我要insert into test (num,nam,onduty)values(001,'jake',1)
testvar2的内容是编辑框，在不写单引号的情况下，我如何给这个编辑框的变量自动加单引号

第二个问题是我不能所有字段都设置成字符型吧，我需要用int的时候我应该则样保留001中的00

Answer 1

用转义字符'。在字符串里''表示一个单引号。

在你写的这个语句里，可以直接加单引号的：
sql.Text:=format('insert into test(num,nam,onduty) values(%d,%s,%d)',[testvar1,‘testvar2’,testvar3]);
sql.Text的值为：insert into test(num,nam,onduty) values(1,testvar2,3)

如果写为：sql.Text:=format('insert into test(num,nam,onduty) values(%d,%s,%d)',[testvar1,‘’‘testvar2‘’’,testvar3]);
sql.Text的值为：insert into test(num,nam,onduty) values(1,‘testvar2’,3)

Answer 2

第一：将一个单引号换成两个单引号即可，在单引号位置输入''；

第二：将 Integer 换成 String ，
Str(edit1.text:3, testvar1);
Str(edit3.text:3, testvar3);
sql.Text:=format('insert into test(num,nam,onduty) values(%s,%s,%s)',
[testvar1,testvar2,testvar3]);