VPF::Обработка исключений - Форум программистов

WERITAS

Дата 7.1.2007, 18:31 (ссылка)

(нет голосов)

Загрузка ...

********

Профиль
Группа: Участник
Сообщений: 582
Регистрация: 2.5.2005
Где: Москва

Репутация: нет
Всего: 5

Обрабатываю открытие текстового файла:

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80

Да просто так:

Код


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 запускать, то все ок

Это сообщение отредактировал(а) VICTAR - 7.1.2007, 18:41

WERITAS

Дата 7.1.2007, 18:53 (ссылка)

(нет голосов)

Загрузка ...

********

Профиль
Группа: Участник
Сообщений: 582
Регистрация: 2.5.2005
Где: Москва

Репутация: нет
Всего: 5

МЛин... так и знал, что что-то простое.... smile

спасибо

--------------------

Арт-менеджер клуба, разрешивший концерт Алексея Глызина, уволен с формулировкой "Мудак"

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »