удалить дубликаты повторяющие слова из memo

[falsebegin]

всем драсти как можно удалить повторяющие слова из memo? ношел вот такой кодик

procedure TForm8.BitBtn1Click(Sender: TObject);
begin
memo2.Text:=Memo1.Lines.Text;
i:=0;
while i < Memo2.Lines.Count do
begin
if Memo2.Lines.IndexOf(Memo2.Lines[i]) < i then
Memo2.Lines.Delete(i)
else
inc(i);
end;

вроде бы работает удаляет повторяющие слова но при большом объеме пример в мемо 30 000 строк иногда больше просто тормозит программа не отвечает =( можно ли как нибудь исправить ?

[Serge_Bliznykov]

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

всем драсти как можно удалить повторяющие слова из memo?

И Вам здравствовать!
Каждое слово на отдельной строке?
Слова с разным регистром букв так, Так, ТАК, тАк, ТаК - это всё разные слова?

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

роде бы работает удаляет повторяющие слова но при большом объеме пример в мемо 30 000 строк иногда больше просто тормозит программа не отвечает

так не надо использовать ВИЗУАЛЬНЫЙ компонент Memo вместо него - используйте TStringList

[falsebegin]

да слова с разным регистром а как использовать TStringList ? может поделишься кодом?

[Shouldercannon]

Без учёта регистра

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
  I: Integer;
begin
  SL := TStringList.Create;
  SL.Text := Memo1.Text;
  I := 0;
  while I < SL.Count do
  begin
    if SL.IndexOf(SL.Strings[I]) < I then SL.Delete(I)
  else Inc(I);
  end;
  ShowMessage(SL.Text); // Результат
  FreeAndNil(SL);
end;

[falsebegin]

добавил 30 000 строк в мемо программа серавно не отвечает

[northener]

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

при большом объеме пример в мемо 30 000 строк иногда больше просто тормозит программа не отвечает =( можно ли как нибудь исправить ?

Можно. Вставьте в цикл волшебную процедуру Application.ProcessMessages например так:

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
  I: Integer;
begin
  SL := TStringList.Create;
  SL.Text := Memo1.Text;
  I := 0;
  while I < SL.Count do
  begin
    if SL.IndexOf(SL.Strings[I]) < I then SL.Delete(I)
  else Inc(I);
  if (i mod 300) = 0 then Application.ProcessMessages;
  end;
  ShowMessage(SL.Text); // Результат
  FreeAndNil(SL);
end;

Но мне кажется что что-то вы темните/ о чем-то умалчиваете.
Код Shouldercannon при всего-то 30 000 строк должен выполняться за такое время, что вы и глазом моргнуть не успеете.
Ну правда уважаемый Shouldercannon не вставил в свой код возврат результата в Мемо

[falsebegin]

ставил проверил программа вроде не тормозит а думает и удаляет повторы очень долго и в место ShowMessage(SL.Text); ставил так memo2.lines.add(SL.Text);

[northener]

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

ставил проверил программа вроде не тормозит а думает и удаляет повторы очень долго и в место ShowMessage(SL.Text); ставил так memo2.lines.add(SL.Text);

Ну тогда попробуйте мой вариант. И сообщите результат.

[falsebegin]

ну так ставил и твой вот пример из 30 000 строк бывает 1000 дубликат или 5000 пытаясь удалить эти дубликаты программа думает так долго

[northener]

Чушь!
Приведите код проекта.