Удаление подстрок из строки за один проход

Posted by Chas under Delphi

Sibedir

function DelUseless2(const Data:string):string;

var

  O1, O2: Integer;

begin

  Result := Data;

  O1 := 1;

  while True do begin

    O1 := Pos('', Result, O1+8);

      if O2 = 0 then Break

      else begin

        Delete (Result, O1, O2+9-O1);

      end;

    end;

  end;

end;

Вот, немного оптимизировал. Избавился от Delete и записываю результат посимвольно:

function DelUseless1 (Data: String): String;

var

  o1, o2, i, s, d, L: Integer;

begin

  L := Length (Data);

  SetLength (Result, L);

  o1 := 1;

  s := 1;

  d := 0;

  while True do begin

    o1 := Pos('', Data, o1+8);

      if o2 = 0 then Break

      else begin

        for i := s to o1-1 do

          Result[i-d] := Data;

        s := o2 + 9;

        d := d + (s - o1);

        o1 := s;

      end;

    end;

  end;

  for i := s to L do

    Result[i-d] := Data;

  SetLength (Result, L-d);

end;

Дало прирост в скорости ~ 50%.
На Lazarus’e ~ 15%
А в целом скорость на Lazarus’e раза в 2 меньше

тема на форуме

Похожие статьи

• Поиск нескольких слов в строке
• Удалить все слова из строки
• Кнопка «Удаление» не срабатывает
• Найти и удалить всю cтроку, в которой нет заданной подстроки
• Поиск и перевод слов в TStringList
• Вырезать текст между тегами
• Реализовать копирование, удаление, поиск в делфи не использую стандартные фунции
• Сравнение языков на массивах. Часть 1
• Добавить строку с верха вниз StringGrid
• Склонение ФИО