DELPHI УДАЛИТЬ ДУБЛИ ИЗ МЕМО

Для удаления дубликатов из компонента Memo в Delphi мы можем использовать работу со строками. Одним из простых способов решения этой задачи является создание нового списка строк, добавление в него только уникальных значений из Memo и замена текста компонента Memo на текст из списка.

Давайте рассмотрим пример кода:

// создаем список строк
UniqueList := TStringList.Create;
//разбиваем содержимое Memo на строки
ExtractStrings([#10],[],PChar(Memo1.Text),UniqueList);
//удаляем повторяющиеся строки
UniqueList.Sorted:=True;
UniqueList.Duplicates:=dupIgnore;
//заменяем текст Memo уникальными строками
Memo1.Text:=UniqueList.Text;
//освобождаем список
UniqueList.Free;


В данном коде мы создали новый объект TStringList, использовали функцию ExtractStrings для заполнения списка только уникальными значениями из Memo и заменили текст компонента Memo полученным уникальным списком строк. Метод Sorted сортирует список, а Duplicates с помощью значения dupIgnore удаляет дубликаты.

Delphi DS150E, Autocom, Multidiag - диагностический сканер с Aliexpress

Delphi 7 Компонент Memo

Функции и возможности Delphi DS150E

Как автоматически удалить дубликаты файлов по содержимому

Программирование в Delphi Урок 3 2 Работа с текстом, строковые функции Length, Pos и другие

Delphi - Memo

DELPHI Урок 3 Создание БД, добавление, удаление, изменение записей

Тест на Delphi