Удаление дубликатов memo

Сегодня мы научимся удалять дубликаты из memo

Шаг 1. Создаем Новую форму и добавляем 2button,и 1 memo,opendialog4


Шаг 2. Делаем загрузку на 1 кнопку
Так чтобы из текстового документа добавилась в memo
Жмем 2 раза на кнопку загрузить.
В процедуру кнопки вставляем:

Код:

if opendialog1.execute then memo1.Lines.LoadFromFile(opendialog1.filename);

Шаг 3. В глобальную переменную добавляем
i,j типа : iinteger

Код:

var
i,j:integer

Шаг 4. Создаем процедуру для кнопки удалить

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
i := 0;
while i < Memo1.Lines.Count do
begin
if Memo1.Lines.IndexOf(Memo1.Lines[i]) < i then
Memo1.Lines.Delete(i)
else
inc(i);
end;
end;

Ну вот и все спасибо за внимание!

ИСТОЧНИК: ImbaCode.RU

 

Делайте все в потоке а то будет форма зависать!

 

При 1 потоке и 1000 строк она тоже будет зависать