Вот написал человеку код:

Код

uses Registry; const  n = 50;    Keys: array [1..n] of string = (  '\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer',  '\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer',  '\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer',  '\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System',  '\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System',  '\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Network',  ...  );  Names: array [1..n] of string = (   'KeyName1',  'KeyName2',  'KeyName3',  'KeyName4',  'KeyName5',  'KeyName6',  ...  );  Root: HKEY = (*раздел*);  prefix = 'CheckBox';  type  TBaseBox = TCheckBox;  var  reg: TRegistry; procedure LoadRegistry; var  i:integer;  b:TBaseBox; begin  reg:=TRegistry.Create;  reg.RootKey:=Root;  for i:=1 to n do   with reg, Form1 do    begin     OpenKey(Keys[i], false);     b:=FindComponent(prefix + IntToStr(i)) as TBaseBox;     try      b.Checked:=ReadBool(Names[i]);     except      b.Enabled:=false;     end;     b.Free;         CloseKey    end;  reg.Free end; procedure SaveRegistry; var  i:integer;  b:TBaseBox; begin  reg:=TRegistry.Create;  reg.RootKey:=Root;  for i:=1 to n do   with reg, Form1 do    begin     OpenKey(Keys[i], false);     b:=FindComponent(prefix + IntToStr(i)) as TBaseBox;     if b.Enabled      then       WriteBool(Names[i], b.Checked);     b.Free;     CloseKey    end;  reg.Free end;

Он говорит, что этот код не верен... Так ли это? Что исправить?

Суть всей затеи...
Есть 50 Чеков... В них ставятся галочки в соответствии с параметрами реестра... Соответсвие между ними всеми ставится через константы... индексы...

...

Это сообщение отредактировал(а) Quadr0 - 1.7.2011, 14:53

Так, что подскажешь делать?

Кстати, при запуске проги, выдаёт ошибку дебагера:

Код

Project Project1.exe raised exception class ERegistryException with message  'Faild to get data for NoFind'. Process stopped. Use Step or Run to continue.

Вобще лень это тестировать, а на первый взгляд видна ошибка

{
'\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer',
'\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer',
'\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer',
'\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System',
'\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System',
'\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Network',
}

должно быть без символа "\" в начале.

'SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer',
'SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer',
'SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer',
'SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System',
'SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System',
"SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Network',

Цитата(Quadr0 @ 5.6.2005, 14:12)

все без имён, вот он ничего и не найдёт.

В каком смысле без имён, ведь смотри, prefix = имени компонента без цифры, а i = это номера компонентов и получается в итоге CheckBox1, CheckBox2 и т.д.

Цитата(Pakshin @ 5.6.2005, 14:02)

b:=FindComponent(prefix + IntToStr(i)) as TBaseBox;     if b.Enabled

Это что за конструкция?? Может все таки

Код

if b <> nil then........

??
и OpenKey надо проверять на возвращаемое значение.

Кстати, я массив ключей реестра по другому записал бы - зачем так память неэффективно расходовать)) Т.е. вот это:

Код

Keys: array [1..n] of string = (  '\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer',  '\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer',  '\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer',  '\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System',  '\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System',  '\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Network',  ...  );

Поменял бы на(А может и '\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\' стоит отуда выкинуть, если у тебя все ветки реестра находятся там):

Код

Keys: array [1..m] of string = (  '\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer',  '\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System',  '\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Network',  ...  );

И добавил бы промежуточный индексный массив:

Код

KeyIndexes: array[1..n] of integer = (1, 1, 1, 2, 2, 3 ...);

Ты же сказал, что "\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\" откинешь?
Добавлено @ 15:30

Код

KeyIndexes: array[1..n] of integer = (1, 1, 1, 2, 2, 3 ...);

Рассталкуй пожалуйста неопытному что это значит?

Высказываю негодование...
1) 2Quadr0
Зачем в const... да затем... если компонентов будет на 50, а 3... менять в двух местах!!!! НЕХОРОШО!!!
Тип TBaseBox нужен для поиска соответствующих компонетов... Смотри внимательнее и читай поиск компонентов...
Ты наивный человек или незнающий... Почему это не найдет? Почему без имен?!
2) 2Dynamic
Конструкция не ясна? Может на первый взгляд да, но компоненты все всегда находятся... поэтому незачем проверять то, что найден компонент или нет... Здесь фишка в том, что у меня разделов в реестре таковых почти нету (не все есть)... поэтому что читать и изменять,е сли такого нету... поэтмоу при загрузки программы те параметры, которые отсуствуют не берутся в овнимание и соответствующие чеки становятся неактивными... аналогично неактивные чеки не рассматриваются при сохранении инфы...
OpenKey... не очень-то надо... при попытке чтения стоит try... автоматически исключается при этом попытка чтения/записи в несуществующий раздел, т. к. все отлажено через try и Enabled

P. S.
Вот... реальная доработка от Spawn'а... жаль сам не догадался...
Добавлено @ 19:24
Так... кто еще попытается найти серьезный баг в коде... СТАВЛЮ ПЛЮС!!!

Хех... объяснить что ли идею <Spawn>'а...

1) У нас все конечные ключи имеют одно и то же начало =>

Код

const  KeyPrefix = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\';

И уже будем обращаться так:

Код

OpenKey(KeyPrefix + Keys[i], false);

Соответственно в Keys'ах сократится запись...
2) Действительно массив Keys занимает место... это нехорошо действительно...
Поэтому мы забодим константу, в которой будем хранить вообще все имена ключей, которые будем использовать

Код

const  KeyNames: array [1..3] of string =(  'Explorer',  'System',  'NetWork');

А в Keys'ах напишем порядковые номера имен ключей из константы KeyNames в соответствующем порядке...

Код

Keys: array[1..n] of integer = (1, 1, 1, 2, 2, 3 ...);

Итого имеется экономия написания и места...
Вот теперь со всеми доработками будем писать обращение:

Код

OpenKey(KeyPrefix + KeyNames[Keys[i]], false);

А зачем там b.Free ?
По смыслу, после LoadRegistry (и после записи) никаких чекбоксов не останется ... Или я чего не понял опять ?...

Не наю... действительно вроде ничего... Аааа... вспомнил для чего така делал... Так память освобождается?
Добавлено @ 20:32
Или не так... короче вроде не мешает...

Цитата

Он говорит, что этот код не верен...

Человек говорит или Не запускается?

Это сообщение отредактировал(а) Albinos_x - 5.6.2005, 20:38

А черт его знает... может он неверно константы записал... или еще что-нить...

Скорее всего трабл в константах...
Добавлено @ 20:41
Т. к. все вроде логически верно построено...

Цитата

Т. к. все вроде логически верно построено...

согласен...

если только...

Код

with reg, Form1 do        begin         OpenKey(Keys[i], false);         b:=FindComponent(prefix + IntToStr(i)) as TBaseBox;         try          b.Checked:=ReadBool(Names[i]);         except          b.Enabled:=false;         end;         b.Free;          CloseKey        end;

...except...
не нравится, а не прервётся ли выполнение процедуры, если возникнет ошибка... (следовательно процедура выполнится не до конца)?

Добавлено @ 21:05
у себя я обычно пользуюсь KeyExists(key), а для проверки существования параметров в ключе отдельная функция написана