TstringList Ошибка

[niva622]

Всем Привет, подскажите компилятор ругается на

var
ts:TstringList;
i, i1:Integer;
begin
ts:=TstringList.create;
for i:=0 to ts.count-1 do
i1:=i1+1;
ts.delete(i1);

Ругается что нет такого элемента в списке, такое же с элементом memo отлично работает..
Разобрался можно удалить тему..
Добавил условие

  if i1>ts.Count-1 then  break;

[Аватар]

А чего сразу после создания удалять что-то, чего априори нет? И зря надеешься, что в i1 обязательно 0 изначально

[Serge_Bliznykov]

niva622, это не код, это набор багов!
как минимум, обнулите вначале переменную i1

как максимум - расскажите, какую задачу Вы пытаетесь этим кодом решить.

[niva622]

Аватар это на скорую руку накидал код, там есть загрузка текста, и задаю до цикла в i1=0

ts.LoadFromFile()

Serge_Bliznykov
Суть очень простая, есть строки текста, нужно удалить каждую вторую строку.
как минимум понятно, а как максимум ? что еще с кодом не так ?
Я конечно прошу прощенья за код, но я очень самоучка.

[Аватар]

for i:=ts.count-1 downto 0 do if odd(i) then ts.delete(i);

[niva622]

Аватар Спасибо даже не слышал про функцию "odd" интересный подход..