1. Do you speak English? Use the English version of the site! Link
    Скрыть объявление
Скрыть объявление
Здравствуй гость! После регистрации на ресурсе, ты сможешь скачивать материалы с форума и участвовать в его жизни! Для регистрации откройте соответствующую форму или нажмите на эту ссылку.

Удаление дубликатов в stringlist'e - pascal

Тема в разделе "Статьи", создана пользователем AnGel, 09.10.2015.

  1. AnGel

    AnGel Администратор
    Команда форума

    Дек 05 2016 в 00:51
    Регистрация:
    27.08.2015
    Сообщения:
    1.782
    Симпатии:
    1.299
    I-var:
    Код:
     procedure RemoveDuplicates(const stringList : TStringList) ;
    var
       buffer: TStringList;
       cnt: Integer;
    begin
       stringList.Sort;
       buffer := TStringList.Create;
       try
         buffer.Sorted := True;
         buffer.Duplicates := dupIgnore;
         buffer.BeginUpdate;
         for cnt := 0 to stringList.Count - 1 do
           buffer.Add(stringList[cnt]) ;
         buffer.EndUpdate;
         stringList.Assign(buffer) ;
       finally
         FreeandNil(buffer) ;
       end;
    end;
    Вызов процедуры:
    Код:
    RemoveDuplicates(StringList);
    II-var
    Код:
    with StringList do
         begin
          Sorted := True;
          Duplicates := dupIgnore;
         end;