Форум: "Основная";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.05 c