Mask
چهارشنبه 18 تیر 1393, 00:12 صبح
سلام
کد زیر رو ببینید :
procedure TForm1.Button1Click(Sender: TObject);var
sl: TStringList;
i: Integer;
begin
sl := TStringList.Create;
try
try
for i := -5 to 5 do
sl.SaveToFile(ExtractFilePath(Application.ExeName) + 'com' +
IntToStr(i));
except
//
end;
finally
sl.Free;
end;
end;
حلقه For زمانی که به Com1 میرسه جون نمیتونه این فایل رو بسازه، به مشکل بر میخوره و میپره بیرون.
چطوری باید این نوع خطاها رو کنترل کرد که پس از اعلام خطا یا حتی اعلام نکردن خطا، برنامه به ادامه کار برسه و حلقه تا آخر اجرا بشه؟
ممنون از پاسخگوییتون.
کد زیر رو ببینید :
procedure TForm1.Button1Click(Sender: TObject);var
sl: TStringList;
i: Integer;
begin
sl := TStringList.Create;
try
try
for i := -5 to 5 do
sl.SaveToFile(ExtractFilePath(Application.ExeName) + 'com' +
IntToStr(i));
except
//
end;
finally
sl.Free;
end;
end;
حلقه For زمانی که به Com1 میرسه جون نمیتونه این فایل رو بسازه، به مشکل بر میخوره و میپره بیرون.
چطوری باید این نوع خطاها رو کنترل کرد که پس از اعلام خطا یا حتی اعلام نکردن خطا، برنامه به ادامه کار برسه و حلقه تا آخر اجرا بشه؟
ممنون از پاسخگوییتون.