C#/Java "Try/Finally/Catch" Delphi'de eşdeğer yapı

Question

Delphi'de, nasıl denemeyi deneyebilir ve nasıl bir araya getirebilirsiniz? Bir Java/C# eşdeğer gibi görünecektir:

try { 
    // Open DB connection, start transaction 
} catch (Exception e) { 
    // Roll back DB transaction 
} finally { 
    // Close DB connection, commit transaction 
} 

sen yapabilirsiniz Delphi bu denerseniz ya Kullanım try/finally veya dışında/deneyin; ama asla üçü birlikte değil. try...except iç içe iken

// initialize/allocate resource (create objects etc.) 
... 
try 
    try 
    // use resource 
    ... 
    except 
    // handle exception 
    ... 
    end; 
finally 
    // free resource/cleanup 
    ... 
end 

Answer 1

Delphi aşağıdaki modeli kullanabilirsiniz: I (derleme değil) Aşağıdaki gibi bir kod istiyorum try...finally (veya tam tersi) içinde, hangi dili kullandığınızdan bağımsız olarak, asıl sorunun, hata kaygılarını karıştırdığına işaret etmek istediğim soruya doğrudan yanıt verilir. taşıma ve kaynak yönetimi. Try...except ve try...finally çirkin. Sizi kodunuzun yaptığı şeyden uzaklaştırıyorlar. Daha iyi bir yaklaşım, ayrı bir yöntem haline hata işleme ayıklamak için geçerli:

procedure Read(Connection: TDBConnection); 
begin 
    try 
    //Read DB 
    except 
    //Handle Exception 
    end; 
end; 

procedure ReadRecord; 
begin 
    DBConnection.Open; 
    Read(DBConnection); 
    DBConnection.Close; 
end; 

Şimdi hata işleme kendine yeten ve sen mutlu yoluna dikkatinizi konsantre böylece göz ardı edilebilir.

Bekleyin! open ve close nedir? Ne istisnalar artırırlarsa?

Basit. Bu işlemleri deneyin ... işlevler dışında sarın ve bunları da ele alın. Gerekli olmamalı. Kullandığınız DB kitaplığı bir istisna değerse open veya close bağlantıyı bilinmeyen bir durumda bırakmaz. Sonra tekrar beklemediğiniz şeyler için istisnalar var.

Aynı teknik, herhangi bir kaynakla kullanılabilir: nesne oluşturma, dosya erişimi, vb. İşlevinizin gövdesinin bir istisna yükseltmeyeceği garanti edildiğinde try...finally gereksizdir.

Elbette, işlev çağrısı genel yükü vardır, ancak çoğu durumda önemsizdir ve hata işleme işlevleriniz, derleyicinin bunları satır içine almasına izin verecek kadar küçük olmalıdır.

Answer 2

yazma

try 
    // allocate resource here 
    try 
    finally 
    // free resource here 
    end; 
except 
    // handle exception here 
end; 

Answer 3

:

try 
    // Open DB connection, start transaction 
except on e: Exception do 
begin 
    // Roll back transaction 
end 
finally // Compiler error: expected "END" not "finally" 
begin 
    // Commit transaction 
end