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

← →
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!

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