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

Мастера, подскажите , в чем ошибка   Найти похожие ветки 

← →
Reticent ©   (2002-06-13 15:27) [0]

Доброе время суток!

Почему Registry.GetValueNames(temp_val); не работает?
Мой код:
var
temp_val: TStrings;
...
if l_Registry.KeyExists (REGISTRY_KEY + "\UI\Filter\DBCheckListBoxEx_Stati")
then begin
l_Registry.OpenKey (REGISTRY_KEY + "\UI\Filter\DBCheckListBoxEx_Stati", True);
l_Registry.GetValueNames(temp_val); <-- тут вылетает !?
for i:=0 to temp_val.Count do
...

Всего хорошего!

---

← →
Игорь Шевченко ©   (2002-06-13 15:47) [1]

TStrings - абстрактный класс. Лучше TStringList
Экземпляр класса создается где-нибудь ?

---

← →
Reticent ©   (2002-06-13 15:48) [2]

ведь GetValueNames() возвращает кол-во эл-ов в текущем ключе. Или я не прав?

---

← →
Reticent ©   (2002-06-13 15:52) [3]

эээ... да да , забыл написать
перед
if l_Registry.KeyExists (REGISTRY_KEY + "\UI\Filter\DBCheckListBoxEx_Stati")

стоит temp_val:=TStrings.Create;

а TStringList я же не могу использовать, т.к. в GetValueNames(TStrings должен быть)

---

← →
Внук ©   (2002-06-13 15:56) [4]

Наоборот, должен. TString абстрактный, а TStringList - его реальный наследник

---

← →
Reticent ©   (2002-06-13 16:02) [5]

> Внук

у меня s в конце, т.е. TStrings

---

← →
Внук ©   (2002-06-13 16:04) [6]

Да, это моя опечатка :)

---

← →
Reticent ©   (2002-06-13 16:10) [7]

всем спасибо!! огромное! я все же решился испробовать TStringList. Сработало!!!
Thanks!

---

Страницы: 1 вся ветка

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



Память: 0.46 MB
Время: 0.012 c