Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.01.2010, 07:48   #1
AHTOLLlKA
Новичок
Джуниор
 
Регистрация: 06.04.2009
Сообщений: 2
Вопрос удалить дубли в tstringlist, и удалить по списку

всем привет, сразу к делу а то оч надо
вот столкнулся стакой проблемой:
есть tstringlist
в нем список такой:
http://site1.ru/test/1.php
http://site1.ru/test/12313123.php
http://site1.ru/test/6t5463453565363.php
http://site3333.ru/main.php
http://site3333.ru/glvaaaaaaaaaa.php

тоесть список сайтов и есть одинаковые домены...
тоесть мне надо удалить дубли
как то надо брать первый пункт: http://site1.ru/test/1.php и искать по его моену дубли и удалять и потом со списком что осался продолжаить удалять дубли для каждого домена

как мне такое провернуть ?
AHTOLLlKA вне форума Ответить с цитированием
Старый 17.01.2010, 10:07   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

нужно написать функцию выделения Домена из вашей строки.
а потом уже банальщина: если порядок неважен, то отсортировать список (TS.Sort), идти в цикле по записям, сравнивая функцию получения домена от текущей записи с функцией получения домена от следущей записи. Если совпадают - следующую строчку удалять.

Если порядок важен и сортировать нельзя, то алгоритм чуть-чуть другой: для каждой записи в цикле ищем совпадение домена среди оставшихся до конца списка записей (т.е. от записи i+1 до последней), если есть совпадаения домена - найденные удаляем.

всё.

Что у Вас вызывает затруднения?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 17.01.2010, 10:20   #3
AHTOLLlKA
Новичок
Джуниор
 
Регистрация: 06.04.2009
Сообщений: 2
По умолчанию

ок спасибо, решил просто не наркаманить и сделал проверку по списку при добавлении
спасибо за ответ
AHTOLLlKA вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Удалить пустые строки из TStringList apromix Общие вопросы Delphi 5 14.09.2016 12:14
удалить DrWEB Cantana Свободное общение 10 29.04.2009 14:10
Не могу удалить Detka Свободное общение 4 22.08.2008 23:19
как удалить анти вирус( касперский 2006)если она не работает и ее не возможно удалить Alar Общие вопросы Delphi 0 29.10.2006 21:36