Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Обработка исключений


Автор: WERITAS 7.1.2007, 18:31
Обрабатываю открытие текстового файла:
Код

procedure TForm2.N3Click(Sender: TObject);
var
f:TextFile;
....................
begin
if Opendialog1.Execute then
begin
try 
AssignFile(f,OpenDialog1.FileName);
Reset(f);
...........................................
CloseFile(f);
except 
on EInOutError do MessageDlg('Такой файл не может быть открыт!',mtError , [mbOk] ,0);
end;
end;
end;

Однако при попытке открыть "левый" файл, прога все равно ругаеца smile Может надо другой класс исключений использовать?

Автор: VICTAR 7.1.2007, 18:38
Да просто так:
Код

procedure TForm2.N3Click(Sender: TObject);
var
f:TextFile;
....................
begin
if Opendialog1.Execute then
begin
try 
AssignFile(f,OpenDialog1.FileName);
Reset(f);
...........................................
CloseFile(f);
except 
MessageDlg('Такой файл не может быть открыт!',mtError , [mbOk] ,0);
end;
end;
end;

ЗЫ Ругаться будет только когда из-под Делфи запускаешь, а если просто exe запускать, то все ок 

Автор: WERITAS 7.1.2007, 18:53
МЛин... так и знал, что что-то простое....  smile  спасибо  smile 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)