Работа с реестром из ChekListBox

← →
NSD © (2006-09-29 19:05) [0]

Здарова люди!!! Пожалуйста помогите!
как исходя из этого кода сделать так что бы если переменная 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]);

← →
Kolan © (2006-09-29 21:51) [1]

CheckListBox1.Items.AddStrings?

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

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

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

← →
RASkov (2006-09-29 22:35) [2]

В данном месте
> 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);

Работа с реестром из ChekListBox Найти похожие ветки