| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с реестром из ChekListBox [D7, WinXP]

NSD ©   (2006-09-29 19:05:00) 

Здарова люди!!! Пожалуйста помогите!
как исходя из этого кода сделать так что бы если переменная ns содержит например 5 или более элементов то не выходило бы сообщение о ошибке.  И еще одно как я потом оттуда могу редактировать реестр.

var regini:treginifile;
NS:TStringList;
s:string;
i:Integer;
begin
ns:=TStringList.Create;
REgini:=TRegIniFile.Create;
Regini.RootKey :=Hkey_Local_Machine;
regini.OpenKey('software\Microsoft\Windows\CurrentVersion',true);
regini.ReadSectionValues ('Run',ns);
For  i:=0 to NS.Count -1 do
CheckListBox1.Items.Add(ns[0]);
CheckListBox1.Items.Add(ns[1]);
CheckListBox1.Items.Add(ns[2]);
CheckListBox1.Items.Add(ns[3]);
CheckListBox1.Items.Add(ns[4]);


---

RASkov   (2006-09-29 22:35:00) [1]

В данном месте
> For  i:=0 to NS.Count -1 do
> CheckListBox1.Items.Add(ns[0]);
> CheckListBox1.Items.Add(ns[1]);
> CheckListBox1.Items.Add(ns[2]);
> CheckListBox1.Items.Add(ns[3]);
> CheckListBox1.Items.Add(ns[4]);

добавляется NS.Count -1 раз в CheckListBox1.Items первая строчка из ns
исправить на
For i:=0 to NS.Count -1 do CheckListBox1.Items.Add(ns[ i]);

В данном случае можно, помоему, сделать так:
regini.ReadSectionValues ('Run', CheckListBox1.Items);
или же так:
regini.ReadSectionValues ('Run',ns);

а затем просто CheckListBox1.Items.assign(ns);

---

Kolan   (2006-09-29 21:51:00) [2]

CheckListBox1.Items.AddStrings?



> то не выходило бы сообщение о ошибке


Воспользуйтесь отладчиком. На какой именно строчке "выходит ошибка"?

И нормально писать научитесь. А то и читать никото не будет:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=802

---

Наверх