Question

delphi中的错误

begin

DBgrid1.Visible:=true;
DBgrid1.Font.Color:=clteal;
if (edit2.Text='')or(edit3.Text='')or(edit4.Text='') then
begin
application.MessageBox('信息不完整！','错误操作',mb_ok);
exit;
end ;

with query1 do

begin
Close;
sql.Clear;

SQL.Add('Update hsb SET 学号=:A,图书号=:B,还书日期=:C where 学号='+QuotedStr(Edit1.Text));
query1.ParamByName('A').DataType:=ftstring;
query1.ParamByName('B').DataType:=ftstring;
query1.ParamByName('C').DataType:=ftstring;
query1.ParamByName('A').AsString:=Edit2.Text;
query1.ParamByName('B').AsString:=Edit3.Text;
query1.ParamByName('C').AsString:=Edit4.Text;
query1.ExecSQL;
//query1.Close;
//query1.Open;

sql.Clear;
edit1.text:='';
edit3.text:='';
edit4.text:='';
//提示的错误是：project project2.exe raised exception class EDBEngineError with message Type mismatch in expression Process stopped. Use step or ran to continue执行的时候没问题但是按下修改按钮就这样了

Answer 1

project project2.exe raised exception class EDBEngineError with message Type mismatch in expression Process stopped. Use step or ran to continue

错误提示大意：EDBEngineError类型的错误：表达式类型不匹配，进程中止。

不知道你按下修改按钮执行的是什么代码，你可以调试下具体的错误行代码。