Обработка исключительных ситуаций

← →
Nikos (2003-05-04 18:00) [0]

Программа считывает данные с ini файла.
FIni:= TIniFile.Create(GenPath + "Options.ini"); try k := StrToInt(FIni.ReadString("General","BDCount","Параметр не найден")); except on EAbort do begin ShowMessage("Ошибка доступа к файлу Options.ini. Проверте правильность структуры этого файла. Программа будет закрыта"); Application.Terminate; end end;
Файл такой существует, но он пуст, то есть при считки с секции General (которой в файле нет) параметра BDCount должна возникнуть исключительная ситуация и управление должно перейти в секцию except. При прогоне программы исключительная ситуация возникает, но управление не переходит к секции except, а выходит из процедуры и выполняет следующие процедуры. Пробовал писать в место EAbort EIoOutError, но все равно то же самое.

← →
circul © (2003-05-04 18:05) [1]

on EAbort do begin - совершенно излишняя конструкция.
Если Exception возникнет, то управление перейдет в секцию except и так.

← →
titnn © (2003-05-04 18:09) [2]

k := (FIni.ReadInteger("Секция","ИмяПараметра","Параметр по уомлчанию "));
Никакой ошибки и не будет , просто если параметр не найден в файле , или даже сам файл , то
k:= "значение по умолчанию"
если так нужно то ставь значение по умолчанию заведомо не используемое

k := (FIni.ReadInteger("Секция","ИмяПараметра",-1));
if k:=-1 then begin
{твой код};
end;

какие проблемы -то ?

← →
Anatoly Podgoretsky © (2003-05-04 18:37) [3]

Убери on EAbort do begin
Сообщение лучше сделать более понятным, ошибка может возникать не только при отсутствии параметра, но например при его недопустимом значении, лучше послать в файл с инструкцией, где должен быть описан этот формат и другая информация.

← →
Ну (2003-05-05 01:15) [4]

2 Anatoly Podgoretsky © (04.05.03 18:37)
Слишком развернутый ответ. Достаточно было остановиться на "недопустимом значении", поскольку далее следует необъяснимое: "лучше послать в файл с инструкцией, где должен быть описан этот формат и другая информация."
Если лучше "послать" так ... :)))

← →
circul © (2003-05-05 01:22) [5]

>Ну (05.05.03 01:15)

А у тебя по делу есть что сказать?

← →
Ihor Osov'yak © (2003-05-05 01:24) [6]

2 Ну (05.05.03 01:15)

Ну, блин, арбитр нашелся. А самому ответы давать влом?

← →
NA © (2003-05-05 01:29) [7]

Вот именно. Исключение возникнет, если действительно ситуация будет ИСКЛЮЧИТЕЛЬНОЙ :)))

Читайте хелп чаще. Возврат значения по умолчанию НЕ МОЖЕТ приводить к исключению - это нормальное поведение функции.

Впрочем, если Вам хочется имено такого исхода, то:

const ErrParam = "нунадожбылотакненапиться"; ......... try k := StrToInt(FIni.ReadString("General","BDCount", ErrParam)); if k := ErrParam then StrToInt (ErrParam) except ShowMessage("Если охотиться будет не на кого, мы такого зверя выдумаем себе сами"); Application.Terminate end; Ну, или более цивилизованные варианты есть. Но этот мне смешнее.

← →
NA © (2003-05-05 01:40) [8]

Протормозил спросонья конкретно - у тебя оно и есть так, как мне смешно. Тогда все должно работать ок, но про EAbort предыдущие ораторы высказывались верно.

← →
Ihor Osov'yak © (2003-05-05 01:50) [9]

2 NA © (05.05.03 01:29)

Причина возникновения исключения в вашем примере, и примере Nikos (04.05.03 18:00) одна и та же. Это по поводу первой строчки после try. По поводу второй в вашем посте - как минимум две ошибки.. Синтакстических...

А почему Nikos исключения не ловил - как это устранить, ему не единыжды указали. А причину можно было бы догадаться самому - ловля исключения определенного типа, а не того типа, что происходит на самом деле...

← →
Нуу (2003-05-05 01:55) [10]

2 Ihor Osov"yak © (05.05.03 01:24)
Пше прашем Игорь! Какие ответы? И на что? По сабжу тут уже все есть.
см. titnn © (04.05.03 18:09)
Могу лишь добавить, что и при отсутстви секции, то же не будет исключения.

Я лишь удивился "непривычно" развернутому ответу АП, в котором его стиль слишком явно мешает "пониманию".

← →
NA © (2003-05-05 01:58) [11]

Ihor Osov"yak © (05.05.03 01:50)
...пять утра у человека, имейте снисхождение :) - что же до опечаток, то я и сам их вижу, что ж теперь.

← →
Ihor Osov'yak © (2003-05-05 02:05) [12]

Да ладно, Arkady.

Рискну предположить, что ты и Ну,Нуу один и тот же человек, несмотря на разные айпи. Ответов уже почти нет, просто переливание с пустого в порожнее..

> Могу лишь добавить, что и при отсутстви секции, то же не будет исключения.

Если это по отношению к titnn © (04.05.03 18:09), то об этом там также говорилось.. Так что уточнение лишнее.

Ну ладно, сорри, меня на флейм потянуло.. Спать пора..

← →
Ihor Osov'yak © (2003-05-05 02:08) [13]

Хотя в части еквивалентности NA и Ну,Нуу я пожалуй не прав, сорри...

← →
NA © (2003-05-05 02:21) [14]

> Рискну предположить, что ты и Ну,Нуу один и тот же человек

Предположение неверное. Я не Нуу, нуу никак :) независимо от IP.
Что касается ответа на вопрос, его действительно дали уже минимум пять человек :)

Теперь по невнятности моего ответа, хотелось бы. Тормоз начался с того, что я ошибочно принял k за _строковую_ переменную, отсюда все и поперло (включая призывы читать хелп етц). StrToInt у автора темы заметил уже после своего ответа - из строки в топе форума. :(

Опечатки: для моего примера в первой строке не должно было быть StrToInt (строка тупо воткнута через буфер), и во второй вместо знака присваивания, ессно, сравнение. Всё.
Функции без присвоения результата компиятор позволяет. Иду спать также. 05:22 уже по нашему, азиатскому... :)

← →
Ihor Osov'yak © (2003-05-05 04:47) [15]

2 NA © (05.05.03 02:21)

Флейма ради + безсоница у меня... + добродушно я все это, без злобы...

> Опечатки: для моего примера в первой строке не должно было быть StrToInt (строка тупо воткнута через буфер), и во

Убираем StrToInt - получаем несоответствие типов..

> во второй вместо знака присваивания, ессно, сравнение. Всё.

Снова несоответствие типов остается. Ибо k как бы не строковая...

То есть устраняем одну ошибку, делаем вторую..

Ладно, пойду спать...

← →
Nikos (2003-05-05 14:58) [16]

А если вот такой код
try k := StrToInt(FIni.ReadString("General","BDCount","Параметр не найден")); n := StrToInt(FIni.ReadString("General","BDIndex","Параметр не найден")); except ShowMessage("Ошибка доступа к файлу Options.ini. Проверте правильность структуры этого файла. Программа будет закрыта"); end;
Как узнать какая строка вызвала исключительную ситуацию?

← →
circul © (2003-05-05 15:03) [17]

>Nikos (05.05.03 14:58)
А можно узнать, как ты будешь при использовании Exception определять, в какой строке возникла ошибка?

← →
evvcom © (2003-05-05 15:09) [18]

C вероятностью 100% никак. Уже было предложено присваивать по умолчанию неиспользуемое значение, например, так:
k := StrToInt(FIni.ReadString("General","BDCount","-1"));
Ну а потом сравнивай, <0 там или что другое.

← →
Владислав © (2003-05-05 15:22) [19]

А не проще использовать ReadInteger, ValueExists?

← →
evvcom © (2003-05-05 15:29) [20]

> Владислав © (05.05.03 15:22)
> А не проще использовать ReadInteger, ValueExists?

Можно и так, но тогда опять - обработка исключений. Ведь в файле можно прописать и какую-нибудь бяку типа строковой информации.

← →
Nikos (2003-05-05 15:39) [21]

Все это понятно. Дело в другом. Вот код
try
k := StrToInt(FIni.ReadString("General","BDCount","-1"));
n := StrToInt(FIni.ReadString("General","BDIndex","-1"));
except
showmessage("Если ошибка произошла при считывании параметра BDCount, то одно сообщение, если при BDIndex, то другое");
end;

Пример мог быть и другим. Главное в моем вопросе не конкретный пример, а какой оператор в списке между try и except вызвал исключение?

> Nikos

блин, ну сделай
try
k := StrToInt(FIni.ReadString("General","BDCount","-1"));
except
showmessage("Если ошибка произошла при считывании параметра BDCount, то одно сообщение");
end;

try
n := StrToInt(FIni.ReadString("General","BDIndex","-1"));
except
showmessage(" то другое");
end;

if k = -1 then Первая строка else Вторая строка.
Кавычки от -1 убери :-))

Тормоз я. Спать хочу - не буду больше формулу ночами лупать, записывать буду...

> evvcom © (05.05.03 15:29)

"Можно и так, но тогда опять - обработка исключений. Ведь в файле можно прописать и какую-нибудь бяку типа строковой информации."

С чего ты так решил? Тогда будет default значение.

> Nikos (05.05.03 15:39)

Если уж на то пошло, то первоначально вопроса вообще не было. ;)

Ты бы уточнил, что тебе надо... Если ты работаешь с ini файлом, на кой тебе вообще ловить какие то exceptions, которые ты при этом создаешь собственными руками?!

Что за INI файл такой без которого ничего не работает? Сбросить все значения по умолчанию и предупредить пользователя об этом.

> Флейма ради + безсоница у меня... + добродушно я все это,
> без злобы...
...
> Снова несоответствие типов остается. Ибо k как бы не строковая...

читаем выше:
> ошибочно принял k за _строковую_

Вывод: здоровый сон еще никому не мешал.

> Nikos (05.05.03 15:39)
> Все это понятно. Дело в другом. Вот код

ну, это уж вообще проще простого:

try b:= 1; k := StrToInt(FIni.ReadString("General","BDCount","qwe")); b:= 2; n := StrToInt(FIni.ReadString("General","BDIndex","qwe")); except ShowMessage("Ошибка на шаге " + IntToStr (b)) end;

Если есть желание перегружать код, можно и так: except case b of 1 : S := ErrorString + "DBCount"; 2 : S := ErrorString + "DBIndex" else S := ErrorString + "хз что за параметр" end; ShowMessage (S) end

Хотя я все еще не пойму, к чему тебе такая гармонь нужна. Ведь те, кто разрабатывал поддержку ini-файлов, не от недоумства добавили возврат значения по умолчанию.
Скорее всего, причина в изначальной ущербности твоего механизма чтения базы, осмелюсь предположить. И исправлять кривизну там надо, а не здесь.

Так что же тебе надо в итоге, все-таки? То ли получить строку, в которой произошла ошибка, то ли избавиться от стандарной обработки Exception?

Обработка исключительных ситуаций Найти похожие ветки