Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, эксперты! У меня на форме есть CheckListBox, в его загружается список, как в этом списке удалить повторяющиеся строки(items.delete)? Помогите пожалуйста! Уже недели две мучаюсь! Заранее спасибо!

Вопрос задал: eclipse (статус: Посетитель) Вопрос отправлен: 29 августа 2009, 23:45 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Если список строк отсортирован по алфавиту, то:

procedure DeleteSortedDuplicates(Lines: TStrings);
var
  Index: Integer;
begin
  for Index:= Lines.Count - 1 downto 1 do
    if Lines[Index] = Lines[Index - 1]
      then Lines.Delete(Index);
end;

procedure DeleteUnsortedDuplicates(Lines: TStrings);
var
  Index: Integer;
  Temp: TStringList;
begin
  Temp:= TStringList.Create();
  try
    Temp.Assign(Lines);
    for Index:= 0 to Temp.Count - 1 do
      Temp.Objects[Index]:= Pointer(Index); // Помечаю каждую строку номером
 
    Temp.Sotred:= True; // Сортирую временный список
    DeleteSortedDuplicates(Temp); // Воспользуюсь предыдущей процедурой
 
    // Удаление тех строк, которые удалились из Temp
    for Index:= Lines.Count - 1 downto 0 do
      if Temp.IndexOfObject(Pointer(Index)) = -1 // если строка была удалена из Temp,
        then Lines.Delete(Index);                // удаляю её и из Lines
  finally
    Temp.Free();
  end;
end;

procedure DeleteUnsortedDuplicates(Lines: TStrings);
var
  Index: Integer;
  Temp: TStringList;
begin
  Temp:= TStringList.Create();
  try
    Temp.Sorted:= True; // Обязательно должен быть сортированным списком
    Temp.Duplicates:= dupIgnore; // Пропускать добавление повторяющихся строк
 
    for Index:= 0 to Lines.Count - 1 do
      Temp.AddObject(Lines[Index], Pointer(Index));
 
    // Удаление тех строк, которые удалились из Temp
    for Index:= Lines.Count - 1 downto 0 do
      if Temp.IndexOfObject(Pointer(Index)) = -1 // если строка была удалена из Temp,
        then Lines.Delete(Index);                // удаляю её и из Lines
  finally
    Temp.Free();
  end;
end;

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 30 августа 2009, 10:18 Оценка за ответ: 5 Комментарий к оценке: спасибо огромное что отозвались! но я уже додумался вот так: var w,j:word;       begin       for w := 0 to chkLst1.Items.Count-2 do         begin           j := w+1;           while j <= chkLst1.Items.Count-1 do           if chkLst1.Items[w] = chkLst1.Items[j] then           chkLst1.Items.Delete(j)           else           inc(j);           end;        end;

Мини-форум вопроса

min@y™ (статус: Доктор наук), 30 августа 2009, 10:57 [#1]: Цитата (eclipse): спасибо огромное что отозвались! но я уже додумался вот так: Мой код будет работать быстрее, особенно на больших списках. Там 2 цикла, а у тебя цикл двойной вложенности. Но хозяин — барин. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

30 августа 2009, 13:42: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Работа с компонентами и библиотеками модератором Ерёмин А.А.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.