کنترل خطا

[ماریا وکیلی]

این کد که با ویژوال نوشتم را شما به کد دلفی تبدیل کنید تا من متوجه شوم این رفع خطا چه جوریه تو دلفی




Private Sub Command1_Click()

Dim A As Integer

On Error GoTo 1
A = "ASD"
1


End Sub

[vcldeveloper]

دو نکته:
1- برای پیدا کردن جواب همچین سوالاتی، بهتره یه کتاب دلفی تهیه کنید.
2- نمی دونم توی VB چقدر از Goto استفاده می کردید، اما بهتره دیگه استفاده از اون رو فراموش کنید.

اما جواب:
ساختارهای try...except و try...finally برای کنترل خطا استفاده میشند:


try
...
except
...
end;



try
...
finally
...
end;

توضیحات مربوط به اونها رو هم می تونید در Help دلفی بخونید.