ماهو الخطأ فى هذا الكود - نسخة قابلة للطباعة

ماهو الخطأ فى هذا الكود - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ماهو الخطأ فى هذا الكود (/showthread.php?tid=7105)

ماهو الخطأ فى هذا الكود - محمد .م.م - 24-07-2015

لقد وضعت هذا الكود

كود :
procedure TForm1.Button2Click(Sender: TObject);
begin
 adotable1.Insert;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.ShowModal;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin

        if (DataSource1.State =dsinsert) then
   begin

      form2.adotable1.Append;
  form2.ADOTable1DSDesigner.Value := DBEdit1.Text;
     form2.ADOTable1_2.Value := DBEdit2.Text;
 ADOTable1.Post;
form2.ADOTable1.Post;
 end
 else
  begin
 if(DataSource1.State =dsEdit) then
   begin
       form2.adotable1.Edit;
  form2.ADOTable1DSDesigner.Value := DBEdit1.Text;
     form2.ADOTable1_2.Value := DBEdit2.Text;
 ADOTable1.Post;
form2.ADOTable1.Post;
end;
 end;

end;

وعندما وضعت except try كما فى هذا الشكل لا يعمل

كود :
procedure TForm1.Button2Click(Sender: TObject);
begin
 adotable1.Insert;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.ShowModal;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 Try
        if (DataSource1.State =dsinsert) then
   begin

      form2.adotable1.Append;
  form2.ADOTable1DSDesigner.Value := DBEdit1.Text;
     form2.ADOTable1_2.Value := DBEdit2.Text;
 ADOTable1.Post;
form2.ADOTable1.Post;
 end
 else
  begin
 if(DataSource1.State =dsEdit) then
   begin
       form2.adotable1.Edit;
  form2.ADOTable1DSDesigner.Value := DBEdit1.Text;
     form2.ADOTable1_2.Value := DBEdit2.Text;
 ADOTable1.Post;
form2.ADOTable1.Post;
 Except
Showmessage ( 'تم' )
end;
 end;

end;

ماهو الحل

ماهو الخطأ فى هذا الكود - phpbb3 - 24-07-2015

كود :
procedure TForm1.Button3Click(Sender: TObject);
begin
  Try
    if (DataSource1.State =dsinsert) then
    begin
      form2.adotable1.Append;
      form2.ADOTable1DSDesigner.Value := DBEdit1.Text;
      form2.ADOTable1_2.Value := DBEdit2.Text;
      ADOTable1.Post;
      form2.ADOTable1.Post;
    end
    else
    begin
      if(DataSource1.State =dsEdit) then
      begin
        form2.adotable1.Edit;
        form2.ADOTable1DSDesigner.Value := DBEdit1.Text;
        form2.ADOTable1_2.Value := DBEdit2.Text;
        ADOTable1.Post;
        form2.ADOTable1.Post;
      end;
    end;
  Except
    Showmessage ( 'تم' )
  end;
end;