Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.051 c
11-1135000241
Yozch1
2005-12-19 16:50
2006.10.15
Запуск приложения в KOL проекте


2-1159354453
mfender
2006-09-27 14:54
2006.10.15
Прелотвращение работы методов в Design Time


15-1158922625
matt
2006-09-22 14:57
2006.10.15
Не правильная рессора?


2-1159709498
lobach
2006-10-01 17:31
2006.10.15
Помогите с ini


3-1155275966
rebroff
2006-08-11 09:59
2006.10.15
Загрузка фото из файла в blob-поле в run-time