Объясните поведение Index в классе TStringList

[Zadovatel]

Вот строка кода:

s:=s + StrList.Strings[i];

i тут integer,равно 4,строка под номером 4 существует.Объясните почему приложение вылетает с критической ошибкой на этой строке?

[grominfo]

Потому что нумерация строк в TStrings начинается с нуля

for i:=0 to list.count-1 do
 begin

 end;

[Zadovatel]

Все равно не понимаю.Как это связано?Я ведь обращаюсь к конкретной строке под конкретным номером.В данном примере хочу записать содержимое 5-й строки.

[grominfo]

Штатный экстрасенс у нас уволился. Покажите код, где вы пытаетесь это сделать.

Создали ли Вы экземпляр класса, прежде чем пытаетесь записать значение? В общем пока кода нет, говорить тут можно бесконечно

[Zadovatel]

procedure SMSMesProc;
   Var
   s:string;
   sBuf:string;
   i:integer;
   begin
   i:=SMSList[0]+1;
   Form1.Memo2.lines.add(IntToStr(i));
   repeat
   s:=s + StrList.Strings[i];;
   Until  i > SMSList[1]-1;
   SMSMes.add(s);
   SMSMes.SaveToFile('C:\info.txt');
   end;

Переменная глобальная.Объект создан,проинициализирован и значения заполнены.Совсем забыл.В списке присутствуют строки ,состоящие всего из двух символов:#13#10.Возможно это может являться причиной такого поведения?

[northener]

   repeat
   s:=s + StrList.Strings[i];;
   Until  i > SMSList[1]-1;

Что должно произойти чтобы из этого цикла нашелся бы выход?

[grominfo]

Тут сам код непонятен. Вообще не логичен. Но на ошибку со стринглист он не влияет. В коде нет ни инициализации объекта, ни его заполнения. Возможно он просто где-то уничтожается до этого кода.

Объясните почему приложение вылетает с критической ошибкой на этой строке?

Какая хоть ошибка появляется?

[Zadovatel]

Прошу прощения,поправил.

procedure SMSMesProc;
   Var
   s:string;
   i:integer;
   begin
   i:=SMSList[0]+1;
   Form1.Memo2.lines.add(IntToStr(i));
   repeat
   s:=s + StrList.Strings[i];
   inc(i);
   Until  i > SMSList[1]-1;
   SMSMes.add(s);
   SMSMes.SaveToFile('C:\info.txt');
   end;

[Zadovatel]

Номера нет.Запускаем приложение,все прекрасно работает.Стоит запустить данную функцию и приложение падает.Если закоментировать данную строку,то приложение прекрасно работает.

[Zadovatel]

procedure SMSMesProc;
   Var
   s:string;
   i:integer;
   begin
   i:=SMSList[0]+1;
   //Form1.Memo2.lines.add(IntToStr(i));
   repeat
   //s:=s + StrList.Strings[i];
   Form1.Memo2.lines.add(IntToStr(i));
   inc(i);
   Until  i > SMSList[1]-1;
   SMSMes.add(s);
   SMSMes.SaveToFile('C:\info.txt');
   end;

Вот другой вариант-функция отрабатывает все 110%.