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

Maestro

Дата 21.12.2005, 17:20 (ссылка)

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

Загрузка ...

Новичок

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

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

Задача: Надо считать параметер из реестра, если он существует, а если нет то записть..

Пример:

Код



r:= TRegistry.Create;
r.Rootkey:=HKEY_CLASSES_ROOT;
{$I-}
try
r.OpenKey('WinNT\SLID\CLASSES', true);
Result:=  r.ReadDateTime(s);
{$I+}
except
r.Free;
end;

Если параметер существует, то всё норм. - если нет, то Delphi выдает ошибку ERegistryException.

В приложении это работает но, я пишу компонент.
Вопрос как сделать что б компилятор не показывал ошибку?

Poseidon

Дата 21.12.2005, 17:28 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Ну во-первых я бы вместо except использовал finally
Во-вторых что такое s?
А в третьих можно ведь проверять существует ли параметр (ValueExists)

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Snowy

Дата 21.12.2005, 17:45 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код


  try
    r:= TRegistry.Create(STANDARD_RIGHTS_READ);
    r.Rootkey:=HKEY_CLASSES_ROOT;    
    try    
      r.OpenKeyReadOnly('WinNT\SLID\CLASSES', true);    
      Result:=  r.ReadDateTime(s);    
    finally
      r.Free;    
    end;
  except
    result:=now;
  end;
end;

В рантайм ошибки не будет.

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