delphi 报错list index out of bounds(0)?

Question

代码：query1.close;query1.sql.clear;query1.sql.add('update user set password='+edit1.text+'where userID=:userID');query1.params[0].asstring:=form1.edit1.text;query1.execsql;query1.post;

Answer 1

数组越界
query1.close;
query1.sql.clear;
query1.sql.add('update user set password='''+edit1.text+'''where userID=userID');
query1.execsql;
不就行了  为啥还写那么复杂