Текущий архив: 2004.02.10;
Скачать: CL | DM;
Вниз
Реестр Найти похожие ветки
← →
mmmaloy © (2003-11-24 14:13) [0]Reg := TRegistry.Create;
try
reg.RootKey:=HKEY_CURRENT_USER;
if Reg.OpenKey("\Software", false) then
begin
if Reg.KeyExists("Value13")=true then
if Reg.ReadInteger("Value13")=13 then
begin
SpeedButton4.Enabled :=true;
end
else else
begin
MainFrm.Caption:=MainFrm.Caption+"-
Незарегестрированная версия";
end;
end;
finally
Reg.CloseKey;
Reg.Free;
inherited;
end;
Почему данный код вызывает ошибку когда нет ключа Value13, ведь как я понимаю if Reg.KeyExists("Value13")=true then должен проверят на наличие ключа. А код если есть ключ нормально работает, а если нет ключа исключение дает
← →
Digitman © (2003-11-24 14:21) [1]ты разницу между Key и Value понимаешь ?
← →
mmmaloy © (2003-11-24 14:25) [2]вообщето думал что понимаю, и думал разницы нет
Оказалось замена на Reg.ValueExists("Value13")=true помогла!
Спасибо
Страницы: 1 вся ветка
Текущий архив: 2004.02.10;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.018 c
