Làm cách nào để biết tôi có đang ở trong ngăn xếp ngoại lệ Delphi không?

Question

Từ bên trong một khối cuối cùng, có thể nói một ngoại lệ đã được nêu ra không?

Answer 1

Bạn có thể kiểm tra xem ExceptObject hoặc ExceptAddr được giao . Trong nguồn VCL, điều này được thực hiện để kiểm tra. trong GIFImg.pas hoặc jpeg.pas.

Các mã sau đây nên sản lượng

ExceptObject <> nil
ExceptObject = nil

và nếu bạn loại bỏ các ngoại lệ thì tất nhiên

ExceptObject = nil
ExceptObject = nil

try 
    try 
     raise Exception.Create('Just an exception'); 
    finally 
     if ExceptObject <> nil then 
     WriteLn('ExceptObject <> nil') 
     else 
     WriteLn('ExceptObject = nil'); 
    end; 
    except 

    end; 
    if ExceptObject <> nil then 
    WriteLn('ExceptObject <> nil') 
    else 
    WriteLn('ExceptObject = nil'); 

Answer 2

Đây là loại hack, nhưng bạn có thể thử gọi AcquireExceptionObject. Nếu bạn ở trạng thái ngoại lệ, bạn sẽ nhận được một giá trị trả về, nếu không bạn sẽ nhận được số không.

(. Nếu bạn đã có được một, hãy chắc chắn để gọi ReleaseExceptionObject sau)

Answer 3

AFAIK này chỉ có thể đạt được với tuyên bố thử lồng nhau:

Try 
    Try 
    ... 
    Except 
    ... 
    End; 
Finally 
    ... 
End