Delphi的异常处理如何加？谢谢

Question

Delphi的异常处理如何加？谢谢

Answer 1

try
except
end;try
finally
end;

Answer 2

try
   try
 
   except
finally
end;

Answer 3

procedure TForm1.Button4Click(Sender: TObject);
var
  strlist: Tstringlist;
begin
  strlist := tstringlist.Create;
  try
     try
        strlist.Add('测试');
        raise exception.Create('异常');
     except
     on e:exception do
        showmessage('出现异常' );
     end;
  finally
    strlist.Free;
    strlist := nil;
  end;
end;

Answer 4

procedure TForm1.Button4Click(Sender: TObject);
var
  strlist: Tstringlist;
begin
  strlist := tstringlist.Create;
  try
     try
        strlist.Add(FloatToStr(1/0));
     except
     on e:exception do
        showmessage('出现异常,原因:' + e.message );
     end;
  finally
    strlist.Free;
    strlist := nil;
  end;
end;

Answer 5

1)
try
  A
except
  B
end;
若A处发生异常,执行B处2)
try
finally
end;
无论A处是否发生异常,都执行B处

Answer 6

try
  try
  finally
  end;
except
end;

Answer 7

说白了就是：try...finally 或try...except之间封装的都是程序具体执行过程。
后面的就有的不同了。finally后面是具体程序的释放过程，就是程序出不出一常都执行后面的语句。而EXCEPT后面的是一常。只有当程序出现一常了。才执行EXCEPT后面地。呵。