VPF::Удалить строки из MEMO, содержащие ****

mooks11d

Дата 28.12.2008, 14:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 23.8.2008

Репутация: нет
Всего: нет

Подскажите форумчане, как можно удалить из memo строки которые содержат определенное слово?

еще проблема в том что поиск идет по большому объему данных.
30-50 тысяч строк может быть..

Это сообщение отредактировал(а) mooks11d - 28.12.2008, 14:25

Данкинг

Дата 28.12.2008, 14:39 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Для такого объёма базы предназначены! А из Memo удалять, думаю, только проходя циклом по строкам, а как ещё-то.

--------------------

There's nothing left but silent epitaphs.

Akella

Дата 28.12.2008, 15:06 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

mooks11d, StringReplace?

Данкинг

Дата 28.12.2008, 15:15 (ссылка)

(голосов:1)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Цитата(Akella @ 28.12.2008, 15:06

)

StringReplace

Нет, строки удалить, а не из строки. smile

--------------------

There's nothing left but silent epitaphs.

Romikgy

Дата 28.12.2008, 15:24 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

поиск по всем строкам циклом , а удалять можно и отдельные строки

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

THandle

Дата 28.12.2008, 16:41 (ссылка)

(голосов:1)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

Как уже сказали - пробегаться по всем строчкам и нужные удалять. Но я напомню что надо бегать надо с помощью downto, а то возникнуть могут ошибочки smile

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := Memo1.Lines.Count - 1 downto 0 do
    if Pos('****', Memo1.Lines[i]) > 0 then
      Memo1.Lines.Delete(i);
end;

Посмотрел этот код на больших дистанциях.... Очень медленный smile

Лучше Delete не использовать. smile

Код



procedure TForm1.Button1Click(Sender: TObject);
var
  L: TStringList;
  I: Integer;
  S: String;
begin
  L := TStringList.Create;
  try
    for I := 0 to Memo1.Lines.Count - 1 do
    begin
      S := Memo1.Lines[I];
      if Pos('****', S) = 0 then
        L.Append(S);
    end;
    Memo1.Lines.Assign(L);
  finally
    L.Free;
  end
end;

Это сообщение отредактировал(а) THandle - 28.12.2008, 17:03

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »