Access violation at address 0047BCCC6 in module 'prj1.exe'.Read of address 00000

[windy454]

点击登记的时候插入表中内容。插入成功给出提示。如果再输入信息点击登记，程序报这个错误。

登记 按钮代码：
procedure TForm4.Button1Click(Sender: TObject);
var
sqlstr,edxingming,eddianhua,edcardno,ednianling,edzhuzhi,dengjisj:string;
begin
edxingming:=trim(edtxingming.text);
if length(edxingming)<1 then
begin
showmessage('请输入姓名');
edtxingming.SetFocus;
exit;
end;
eddianhua:=trim(edtdianhua.text);
if length(eddianhua)<1 then
begin
showmessage('请输入联系电话');
edtdianhua.SetFocus;
exit;
end;
edcardno:=trim(edtno.text);
if length(edcardno)<1 then
begin
showmessage('请输入身份证号');
edtno.setfocus;
exit;
end;
ednianling:=trim(edtnianling.text);
edzhuzhi:=trim(edtzhuzhi.text);
// dengjisj:=datetostr(DateTimePicker1.datetime);
sqlstr:='insert into wym_dengji (xingming,lianxidh,shenfenzheng)values('''+edxingming+''','''+eddianhua+''','''+edcardno+''')';
with query1 do
begin
//try
Close;
SQL.Clear;
SQL.Add(sqlstr);
ExecSQL;
Close;
//finally
free;
end;
showmessage('登记成功');
edtxingming.Text:='';
edtdianhua.Text:='';
edtno.Text:='';
edtnianling.Text:='';
edtzhuzhi.Text:='';
end;

[Blessed_Chuan]

with query1 do
    begin
        //try
        Close;
        SQL.Clear;
        SQL.Add(sqlstr);
        ExecSQL;
        Close;
        //finally
        free;  //把这行注释掉
        end;

[缘中人]

free了就没有了啊

[Blessed_Chuan]

那你第二次调用的时候 就报错了 因为query1控件不存在 了

[windy454]

谢谢两位兄弟了 好久不写程序 全都不会了