Текущий архив: 2006.10.15;
Скачать: CL | DM;

Вниз

Работа с реестром из 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);

---

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

Текущий архив: 2006.10.15;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.029 c