Не срабатывает код, пишет ошибку

[T-dayne]

при показе формы срабатывает код:

procedure TForm3.FormShow(Sender: TObject);
var
f: tstringlist;
begin
if fileexists('c:\settings.txt')then
begin
f:=tstringlist.Create();
f.LoadFromFile('c:\settings.txt');
if f.Strings[1] = 'true' then checkbox1.Checked:=true;
f.Free;
end
else showmessage('error to load');
end;

при создании формы вылетает ошибка:

List index out of bounds(1)

Файл существует и читаем. Стока 'true' в нем присутсвует. Что может быть?

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[Serge_Bliznykov]

Коллекция строк в TStringList нумеруется с НУЛЯ
пробуйте:

if f.Strings[0] = 'true'

p.s.
1) для подобных целей есть INI файлы
2) неплохо было бы проверять, сколько строк считалось (файл может быть и пуст)
if f.Count > 0 then ...
3) ещё неплохо было бы при сравнении регистр приводить к lower или UPPER - иначе слово True уже не распознается....

[T-dayne]

отлично, спасибо, ловите +