try finally ve except arasındaki fark

[mrmarman]

Şöyle bir örnek kurabilirsiniz.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  a, b : Integer;
begin
  a := 10;
  b := 0;
  try
    showmessagefmt('Sıfıra bölme hatası... %d', [ a/b]);
  finally
    showmessage( 'Try Finally Kullanıcı "Hatayı GÖRÜR !!!"');
  end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  a, b : Integer;
begin
  a := 10;
  b := 0;
  try
    showmessagefmt('Sıfıra bölme hatası... %d', [ a/b]);
  except
    showmessage( 'Try Except Kullanıcı "Hata Görmez..."');
  end;
end;