Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.10.15;
Скачать: [xml.tar.bz2];

Вниз

Работа с реестром из 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.053 c
2-1159357747
Fostr
2006-09-27 15:49
2006.10.15
Передача информации от Form1.Edit1 к процедуре


3-1155812178
Antoxa2005
2006-08-17 14:56
2006.10.15
Подскажите, а как монопольно открыть бд FB и что будет...


3-1156081674
ronyn
2006-08-20 17:47
2006.10.15
Filter Record


3-1155984409
Lexx_
2006-08-19 14:46
2006.10.15
Autoincrement + ADOCommand


15-1158921694
Aust
2006-09-22 14:41
2006.10.15
сканер





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский