以前问过的aql问题还是没有解决？在线等待！！！！！！！！！！

Question

delphi7+sql2000+adoquery我想实现数据入入的功能，想用一个INSERT语句来实现；
这个问题上周问过可是还是没有解决！但还是要谢谢那些帮忙的朋友！
在数据入入对话筐中有以下控件用来实现接收数据！
表名为 yongyuan
edit1接收‘姓名’(char)
edit2接收‘性别’(char)
edit3接收‘年龄’(int)
edit4接收‘日期’(datetime)
edit5接收‘照片’(image)类型
请问该语句应该怎么写？
我的语句是
sql.Add('insert  yongyuan values('''+edit1.Text+''','''+edit2.text+''','+strtoint(edit3.Text)+''','''+strtodate(edit4.Text)+''',null)');
可是不对啊！请指教！
运行时无法在','+stetoint(edit3.text)+(此处)通过！
错误提示：[error]unit3.pas[85]:incompatible types:'string'and'integer'
         [error]unit3.pas[85]:incompatible types:'string'and'extended'
         [fatal error]project1.[7]:could not compile used unit 'unit3.pas'
请各位高手指教！

Answer 1

strsql := 'insert  yongyuan values(''%S'',''%S'',''%S'',''%S'')';
strsql := format(strsql,[edit1.Text,edit2.Text,edit3.Text,edit4.Text]);

Answer 2

sql.Add('insert into yongyuan values(quotedstr(edit1.Text)+','+quotedstr(edit2.text)+','+edit3.Text+','+edit4.Text+',null)');

Answer 3

同意dudunono(Cookies) ，问题应该解决了把？

Answer 4

sql.Add('insert into yongyuan values('''+edit1.Text+''',''''+edit2.text+'''',''''+edit3.Text+','+cdate(edit4.Text+)',null)');