Ошибки TRegistry внутри try .. except

← →
Тфьу (2003-06-03 13:57) [0]

Чтение из реестра у меня выполняется из try ... except. Но субя по всему TRegisty выдает свои коментарии на ошибки. Как их подавить?
(ошибка от того, что значение не найдено)
Можно писать для всех чтений проверку на существование переменной (valueexists) но это будет куча гемороя (много таких мест)

← →
Skier (2003-06-03 14:05) [1]

>Тфьу (03.06.03 13:57)
Код.

← →
clickmaker (2003-06-03 15:05) [2]

try
// читай что хочешь
except;
end;

← →
Тфьу (2003-06-03 15:32) [3]

Мой код:
Reg:=TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey("\Software\someone",False) then
begin
Frame1.CheckBox1.Checked:=Reg.ReadBool("Empty");//вот тут на экран выскакивает ошибка - ключ не найден. Такого ключа действительно пока нет. Но try ... finally ошибку не ловит. :(
Reg.CloseKey;
end;
finally
Reg.Free;
end;

← →
WarLord (2003-06-03 15:34) [4]

finally ошибки не ловит

← →
WarLord (2003-06-03 15:35) [5]

он при ошибке передает управление на свою строку

← →
Случайный (2003-06-03 15:42) [6]

Возможно, что в HKEY_CURRENT_USER\Software\someone\ нет параметра "Empty". Видимо изначально необходимо его создать.

← →
DVM (2003-06-03 15:42) [7]

Это делфи выдает сообщения об ошибках а не программа. В Debuger Options убрать Stop on Delphi Exception как то так называется пункт.

← →
Тфьу (2003-06-03 15:52) [8]

WarLord ©: Сенкс. Исправил мое заблуждение по поводу finally.
Случайный: Если внимательно прочитать, что я несколько раз писал - такого ключа действительно нет.
DVM ©: Ну я ошибки Делфи и программы пока могу отличить. :)

Ошибки TRegistry внутри try .. except Найти похожие ветки