Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.04;
Скачать: CL | DM;

Вниз

StringList что не так?   Найти похожие ветки 

 
lika   (2004-03-19 15:31) [0]

Вот вроде бы понятный код, но выскакивает ошибка В EStringLIstError List index is out of boundы(3)
Вот код, поскажите что здесь не так и почему (я немогу понять) выскакивает ошибка:(на форме одна кнопка и все кода больше нет никакого).
procedure TForm1.Button1Click(Sender: TObject);
var
TS:TstringList;
i:integer;
begin
TS:=TstringList.Create;
for i:=0 to 100 do
 TS.Add(inttostr(i)+" "+"Yes");
for i:=0 to TS.count-1 do
begin
 if Pos("2",ts[i]) <> 0 then
    begin
TS.CommaText:=ts[i];
memo1.Lines.Add(ts.Strings[0]+" "+ts.Strings[1]);
    end;
end;
end;


 
Юрий Зотов ©   (2004-03-19 15:37) [1]

for i:=0 to TS.count-1 do...

Здесь TS.count-1 вычисляется только ОДИН раз в НАЧАЛЕ цикла и будет равно 101.

TS.CommaText:=ts[i];

Этот оператор меняет Count и цикл выходит за его границы.



Страницы: 1 вся ветка

Текущий архив: 2004.04.04;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.025 c
3-1078405432
Lelik
2004-03-04 16:03
2004.04.04
ODAC


8-1070574471
Suharew
2003-12-05 00:47
2004.04.04
Как работать с рисунками GIF


1-1079342294
Jager
2004-03-15 12:18
2004.04.04
Как получить из ярлыка путь файла на который ярлык указывает


1-1079684425
Mantic0re
2004-03-19 11:20
2004.04.04
Когда уходит и приходит Handle...


14-1078917811
Krotn
2004-03-10 14:23
2004.04.04
Характеристики Fm, TV, ИК волн.