|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите найти ошибку в процедуре
Нужно с Ини файла загрузить в ЛистБокс. У меня не получается.
Вот код процедуры Код:
try with t_ini do begin maskEdit1.text:=t_ini.readstring('MaskEdit1','text',''); scrollbar1.Position:=t_ini.ReadInteger('Scrollbar1','position',-1); listbox1.count:=t_ini.readInteger('listbox1','count',1); for i:=0 to listbox1.items.count -1 do begin listbox1.Items[i]:=t_ini.readstring('listbox1','1',''); Ошибка в выделенном. А вот где грузится в Ини с Листбокса t_ini.WriteInteger('listbox1','count',listbox1.count); for i:=0 to listbox1.items.count -1 do begin t_ini.WriteString('listbox1','l'+inttostr(i),listbox1.Items[i]); Последний раз редактировалось Admin, 14.01.2013 в 21:15. |
#2
|
||||
|
||||
Пробежался по коду, нашел пару ошибок, держите:
Код:
try with t_ini do begin MaskEdit1.Text := t_ini.ReadString('MaskEdit1', 'text', ''); scrollbar1.Position := t_ini.ReadInteger('Scrollbar1', 'position', -1); // Что это вообще за бред? Заносите в отдельную переменную // Listbox1.Count := t_ini.ReadInteger('listbox1', 'count', 1); for i:=0 to listbox1.items.count -1 do begin listbox1.Items[i].Append(t_ini.readstring('listbox1', '1', '')); t_ini.WriteInteger('listbox1', 'count', listbox1.count); t_ini.WriteString('listbox1', 'l' + inttostr(i), listbox1.Items[i]); end; Последний раз редактировалось sariman, 15.01.2013 в 00:41. |
#3
|
||||
|
||||
Неверно
Код:
var I, J : Integer; begin ... J := t_ini.readInteger('listbox1','count',1); for i := 0 to J - 1 do begin listbox1.Items[i].Add(t_ini.readstring('listbox1', '1', '')); ... Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |