ReadDoubleDef(ValueName: String; DefaultValue: Double): Double;
ValueName. Наименование параметра, значение которого необходимо получить.
DefaultValue. Значение, которое будет подставляться, если параметр не существует.
Метод ReadDoubleDef осуществляет считывание вещественного значения из двоичного параметра в реестре.
Если параметр с наименованием ValueName не существует, то метод возвращает значение параметра DefaultValue.
Добавьте ссылку на системную сборку Registry.
Sub UserProc;
Var
RegKey, SubKey: IRegistryKey;
d: Double;
Begin
RegKey := RegistryClass.CurrentUser;
SubKey := RegKey.OpenSubKey("Software\MyProject\Params", False);
d := SubKey.ReadDoubleDef("Param1", Double.MinValue);
End Sub UserProc;
После выполнения примера из параметра с наименованием Param1, расположенного в подразделе реестра [HKEY_CURRENT_USER\Software\MyProject\Params], в переменную d будет считано вещественное значение. Если параметр не существует, то в переменную будет установлено минимальное для вещественных чисел значение.
См.также: