ListBox не хочет возвращать значения своих строк: "List index out of bounds (0)"

@антон5465 · Регистрация: 22.03.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте. В 11 строке проблема как я понял. Google не помог. В чем проблема?

Project Project1.exe raised exception class EStringListError with message 'List index out of bounds (0)'

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var
    i : integer;
    f : TStringList;  
begin
 
    f := TStringList.Create();  
 
    for i:=0 to listbox1.Count do          begin
    listbox1.ItemIndex := i;
    f[i] := listbox1.Items[i];
    end;
 
    f.SaveToFile(extractfilepath(application.ExeName) + '\main.txt');
 
    f.Free;  
    end;
end.

@i8085 · 31.03.2011, 00:29

Сообщение от антон5465

message 'List index out of bounds (0)'

После f := TStringList.Create(); создаётся пустой список. Строк в нём нет, поэтому обращаться к строке по индексу нельзя. Сначала надо эту строку добавить.

@антон5465 · 31.03.2011, 11:30 **[ТС]**

Сообщение от i8085

После f := TStringList.Create(); создаётся пустой список. Строк в нём нет, поэтому обращаться к строке по индексу нельзя. Сначала надо эту строку добавить.

Спасибо, разобрался. Думал listbox виноват. Кстати, в цикле надо условие поправить с listbox1.Count на listbox1.Count-1

@i8085 3218 / 2361 / 540 Регистрация: 11.09.2009 Сообщений: 8,604
	31.03.2011, 00:29	2
	Сообщение от антон5465 message 'List index out of bounds (0)' После f := TStringList.Create(); создаётся пустой список. Строк в нём нет, поэтому обращаться к строке по индексу нельзя. Сначала надо эту строку добавить. 1

@антон5465 5 / 5 / 0 Регистрация: 22.03.2011 Сообщений: 53
	31.03.2011, 11:30 [ТС]	3
	Сообщение от i8085 После f := TStringList.Create(); создаётся пустой список. Строк в нём нет, поэтому обращаться к строке по индексу нельзя. Сначала надо эту строку добавить. Спасибо, разобрался. Думал listbox виноват. Кстати, в цикле надо условие поправить с listbox1.Count на listbox1.Count-1 0