[sve-pro]

Нужно с Ини файла загрузить в ЛистБокс. У меня не получается.
Вот код процедуры

Код:

 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]);

Админ: Пользуемся тегами для оформления кода!

[sariman]

Пробежался по коду, нашел пару ошибок, держите:

Код:

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;

Два одинаковых цикла порадовали..))

[angvelem]

Неверно

Код:

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', ''));
...

Как то так.