Поиск и удаление в stringlist'e

[Аватар]

JUDAS поставте точку останова на Result:=xList.Count-1; и посмотрите сколько раз туда будет вход

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
    xList: TStringList;
function uCount: Integer;
begin
  Result:=xList.Count-1;
end;
begin
  xList:=TStringList.Create;
  xList.Add('1');
  xList.Add('2');
  xList.Add('3');
  for i:=uCount downto 0 do
    if (xList.Strings[i]='2') or (xList.Strings[i]='1') then xList.Delete(i);
  xList.Free;
end;

[JUDAS]

For лишь в начале вычисляются значения начала и конца

в таком случае уважаемый, после удаления десятка строк, ваш код падёт на значении i:=count-10 по причине того, что строки с номером count-10 уже не будет, (которую вы вычислили вначале)

--------

посмотрите сколько раз туда будет вход

посичтайте производительность в секундах моего кода и вашего, для количества строк более 10000

[Аватар]

Можно удалить все, заменив
if (xList.Strings[i]='2') or (xList.Strings[i]='1') then xList.Delete(i);
на
xList.Delete(i);
и посмотреть где код упадет

add

Разница в 12 секунд не в пользу вашего алгоритма

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
    xList: TStringList;
begin
  xList:=TStringList.Create;
  for i:=1 to 200000 do xList.Add(IntToStr(i));
  Label1.Caption:=Format('Старт %s',[FormatDateTime('hh:nn:ss.zzz',Now)]);
  for i:=xList.Count-1 downto 0 do
    if Pos('3',xList.Strings[i])=0 then xList.Delete(i);
  Label2.Caption:=Format('Финиш %s',[FormatDateTime('hh:nn:ss.zzz',Now)]);
  xList.Free;
end;
Старт 22:15:01.979
Финиш 22:15:04.506

procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
    xList: TStringList;
begin
  xList:=TStringList.Create;
  for i:=1 to 200000 do xList.Add(IntToStr(i));
  i:=0;
  Label3.Caption:=Format('Старт %s',[FormatDateTime('hh:nn:ss.zzz',Now)]);
  while i<xList.Count do begin
    if Pos('3',xList.Strings[i])=0 then begin
      xList.Delete(i);
      continue;
    end;
    inc(i);
  end;
  Label4.Caption:=Format('Финиш %s',[FormatDateTime('hh:nn:ss.zzz',Now)]);
  xList.Free;
end;
Старт 22:15:45.627
Финиш 22:16:00.057

[evg_m]

да не вопрос откуда двигатся, вопрос про то, что при удалении элемента I счётчик в Вашем цикле, уменьшится на один и процедура c.Count будет пересчитіваться ровно столько раз сколко строк удаляется.

Если есть вопрос, то есть и ответ.
D? F1 for

For purposes of controlling execution of the loop, the expressions initialValue and finalValue are evaluated only once, before the loop begins. Hence the for...to statement is almost, but not quite, equivalent to this while construction:

[bulldog5293]

Сорри, что поднял эту тему и что из-за моего вопроса столько шума было, просто delete я заменил на copy, тобиш чтоб не удалять в цикли лишнее, а просто нужное скопировать в стринг, а потом очистить tstringlist

for i:= a.Count - 1 downto 0 do
if Pos('текст', a[i])>0 then
try
b:='';
b:=a[i];
finally
FreeAndNil(a);
end;

На тот случай если кому понадобится

[Lime]

Как говорил наш препод: "Сколько программистов столько и решений для одинаковой задачи"

[Serge_Bliznykov]

Сообщение от bulldog5293

На тот случай если кому понадобится

Никому никогда категорически не рекомендую использовать это кошмарный ужас!!!

[bulldog5293]

Никому никогда категорически не рекомендую использовать это кошмарный ужас!!!

Эт почему же7

[Аватар]

Сообщение от bulldog5293

Эт почему же7

Потому, что даже быдлокод слишком громкое название для приведенного вами фрагмента
1. И самое веселое - убиваете компонент и дальше в цикле с ним продолжается работа. Мало того что он убит - еще указателю на него nil присвоен.
2. К чему в этом контексте try...finally? Конечно можно догадаться к чему, но как он расставлен - это шедеврально
3. Перед присвоением в переменную строки очистка переменной - новый писк супер программирования
4. Команда Break наверно погулять пошла

[Serge_Bliznykov]

Эт почему же7

1) зачем присваивать пустую строку а затем сразу же - значение?
Да ещё и в цикле?!!
это что - если по exception вылетает, что в строке был не мусор а пустая строка?! Так, хотя бы для цикла это надо делать.

2) зачем "ловить" чтение строки через Exception ?!

3) ну и главное, - это что, новое слово в технологии программирования - в цикле по свойствам объекта УНИЧТОЖАТЬ этот же объект, по которому идёт цикл?!

этот "экстрим" явно не для меня. Спаси и сохрани, как говорится.
И, соответственно, никому такое не посоветую!