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

[bulldog5293]

Как правильно удалить строку из tstriglist'a в которой нет определённого слова и оставить строку со словом которое нужно? Такой подход не работает

for i:= 0 to c.Count - 1 do
        begin
         while not Pos('слово', c[i]) <>0 do
        begin
          c.Delete (i);
        end;
         j:= Pos('слово', c[i]);
         S1:= Copy(c[i]);
          showmessage(S1);
          end;

[Silver_S]

for i := c.Count - 1 downto 0 do

[JUDAS]

i:=0;
while i<StringList.Count do
begin
  if Pos('нужное слово',StringList.Strings[i])=0 then 
  begin
    StringList.Delete(i);
    continue;
  end;
  inc(i);
end;

[Serge_Bliznykov]

ну можно и так.
но, мне кажется, что вариант, предложенный Silver_S более простой и понятный (я сам так же всегда поступаю): когда надо перебрать элементы и часть из них удалить, двигаться нужно от конца списка к его началу:

for i:= c.Count - 1 downto 0 do
  if Pos('слово', c[i])=0 do
          c.Delete(i);

[bulldog5293]

JUDAS спасибо, работает

[JUDAS]

когда надо перебрать элементы и часть из них удалить, двигаться нужно от конца списка к его началу:

да не вопрос откуда двигатся, вопрос про то, что при удалении элемента I счётчик в Вашем цикле, уменьшится на один и процедура c.Count будет пересчитіваться ровно столько раз сколко строк удаляется.
Для списка в 10-20 строк оно как бы прокатывает, а для списка в 10000-20000 строк удаление 2-3 строк будет происходить минутами.

[Silver_S]

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

да не вопрос откуда двигатся, вопрос про то, что при удалении элемента I счётчик в Вашем цикле, уменьшится на один и процедура c.Count будет пересчитіваться ровно столько раз сколко строк удаляется.
Для списка в 10-20 строк оно как бы прокатывает, а для списка в 10000-20000 строк удаление 2-3 строк будет происходить минутами.

Не понял вас... Вы что, считаете, что код "i := c.Count" выполняется при каждом проходе по циклу, а в вашем варианте количество вызовов c.Count будет меньше???

[SNUPY]

Ну чтож... давайте тогда это сделаем в абсолютно кашерном исполнении =)):

procedure ClearStringList(ss:ss :TStringList; s: string);
var
  shift, i, count :Cardinal;
  log :Boolean;
begin
  shift := 0;
  i :=0;
  count := ss.Count;
  log := false;
  while i <= count-1 do
  begin
    if Pos(s,ss[i])=0 then
    begin
      inc(shift);
      log := True;
    end
    else
    begin
      if log then
        ss[i-shift] := ss[i];
    end;
    inc(i);
  end;

  for i:=count-1 downto count-shift-1 do
    ss.Delete(i);
end;

[JUDAS]

c.Count будет меньше?

практика показывает что да ) по крайней мере на 7-м делфи

[SNUPY]

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

практика показывает что да ) по крайней мере на 7-м делфи

Эмм...
Поддерживаю Silver_S: для цикла For лишь в начале вычисляются значения начала и конца. А в вашем случаи while i<StringList.Count do вычисляется полностью каждый раз при проходе цикла.