متوقف کردن خطا [بایگانی]

testym2007

سه شنبه 01 خرداد 1386, 09:43 صبح

با سلام
من میخوام AdoConnection رو کانکت کنم و اگه خطا داد یکسری دستورات دیگه اجرا شه.
ولی وقتی دستور کانکت رو اجرا میکنم خطا میده و دیگه کاری نمیشه کرد.
میشه کاری کرد که خطای در حال اجرا پیش نیاد و خودم توسط کد خطارو تست کنم.
آیا مرجعی برای دستوراتی که در {} نوشته میشن سراغ دارید مثلا {+I$} و {-I$} یا ...

Arman_1367

سه شنبه 01 خرداد 1386, 09:59 صبح

با سلام
برای کنترل خطاهای برنامه می توانی از روش زیر استفاده کنی

Try
//Do Some Thing here
Except
//On Exception Control Here
on EDevByZero do
Begin
//Do Dev By Exception Control Here
End;
End;
البته در قسمت Except می توانی هر خطایی را چک بکنی و برای آن کد بنویسی.البته من برای مثال خطای تقسیم بر صفر را چک کردم.

m-khorsandi

سه شنبه 01 خرداد 1386, 15:56 عصر

Handling Errors and Exceptions in Delphi (http://www.barnamenevis.org/forum/showthread.php?t=60728)

testym2007

سه شنبه 01 خرداد 1386, 16:20 عصر

اینو ببینید:

while not(ADOConnection1.Connected) do
begin
i:=RandomRange(0,999999);
s:=IntToStr(i);
ADOConnection1.ConnectionString:='Provider=SQLOLED B.1;Persist Security Info=False;Password='+s+';User ID=sa;Data Source=SERVER';
try
ADOConnection1.Connected:=True;
except
Continue;
end;
end;

باز خطا میده

m-khorsandi

سه شنبه 01 خرداد 1386, 16:26 عصر

با Try..Except باز هم خطا رو میگیری با این تفاوت که شما میتونی خطا رو کنترل کنی.

testym2007

سه شنبه 01 خرداد 1386, 16:51 عصر

جناب m-khorsandi (http://barnamenevis.org/forum/member.php?u=7146) راه حل شما برای کد بالا چیه؟

ghabil

سه شنبه 01 خرداد 1386, 16:58 عصر

خطا رو توی دلفی میگری اگر فایل EXE رو اجرا کنی خطا نمیگیری...

testym2007

سه شنبه 01 خرداد 1386, 17:00 عصر

با تشکر از همه دوستان
مشکل من حل شد