Есть 2 процедуры, одна пишет данные из listBox в ini файл, другая наоборот, считывает из ini в listBox. Как раз при чтении происходит ошибка: List index out of bounds (0)
Код:
procedure TForm1.N18Click(Sender: TObject); //сохранить список
var
F: TIniFile;
i:integer;
begin
if ListBox1.Count>0 then
begin
F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'PlayList.ini');
F.EraseSection('Track');
for i := 0 to ListBox1.Count - 1 do
F.WriteString('Track', InttoStr(i), ListBox1.Items[i]);
end;
end;
procedure TForm1.N19Click(Sender: TObject); //восстановить список
var
F: TIniFile;
i:integer;
begin
if listBox2.Visible then
begin
ListBox1.Clear;
ListBox2.Clear;
begin
i:=0;
F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'PlayList.ini');
Repeat
ListBox1.Items.Add(F.ReadString('Track',Inttostr(i), ListBox1.Items[i]));
listbox2.Items.Add(ExtractFileName(listBox1.Items[i]));
i:=i+1;
Until(EOF) ;
end;
end;
end;
Для примера - это запись плейлиста в файл.
Помогите пожалуйста.