这么写是有错的:
sql.add('select * from userinfo where 用户名='''+EditModiName.Text+'''');
当.text中出现 ' 这个符号时就出错,
改为:
sql.add('select * from userinfo where 用户名='+quotedstr(EditModiName.Text));
如果你的sql语句写成:
sqlstr:= 'select * from userinfo where 用户名 = ''' + Edit1.text + '''' ;
with query do
begin
close;
sql.clear;
sql.add(sqlstr);
open();
end;