Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c