[hugolom]

В мемо есть много ссылок, нужно сделать так :

3 одинаковые ссылки(строчки), 2 удалились, одна осталась, 2 одинаковые, 1 удалилась, 1 осталась..

т.е. так же только строки, строки это ссылки

Как можно реализовать?

[mak-karpov]

Просто. Создаешь список не повторяющихся строк, потом очищаешь исходный и копируешь новый

[hugolom]

Кинь код, я плохо понял

[Страдалецъ]

Покажи текст memo, если каждая ссылка в новой строке, то можно так как советовал mak-karpov, а вот если они произвольно раскиданы по тексту - уже сложнее.

[hugolom]

например:

Код:

http://google.com///search?
http://www.google.ru/imghp?hl=ru&tab=wi
/url?sa=p&pref=ig&pval=3&q=http://www.google.ru/ig%3Fhl%3Dru%26source%3Diglk&usg=AFQjCNGA90yIbM1R8iZtlxuqENUj3kH4hw
http://google.com///advanced_search?hl=ru
http://google.com///search?
http://www.google.com/imghp?hl=en&tab=wi
/url?sa=p&pref=ig&pval=3&q=http://www.google.com/ig%3Fhl%3Den%26source%3Diglk&usg=AFQjCNFA18XPfgb7dKnXfKz7x7g1GDH1tg
http://google.com///advanced_search?hl=en
http://google.com///intl/en/about.html
http://google.com///search?
http://www.google.ru/webhp?hl=ru&tab=iw
http://google.com//javascript:void(0);
http://google.com//javascript:void(0);
http://www.google.com/hostednews/ap/article/ALeqM5jjwPbWx7hWELaXAXIbtD4jKfChiAD9HIN6UG1
http://google.com//javascript:void(0);
http://google.com//javascript:void(0);
http://google.com///news/section?pz=1&cf=all&ned=us&hl=en&q=Julia+Roberts&ict=clu
http://google.com///news/more?pz=1&cf=all&ned=us&ncl=dcIzKGFEtMOHb2Mg_7W46iy790S8M
http://google.com///news/section?pz=1&cf=all&ned=us&hl=en&q=David+Stockman&ict=clu
http://google.com///news/search?pz=1&cf=all&ned=us&hl=en&q=author:%22Paul+B.+Farrell%22&scoring=n
http://google.com///news/section?pz=1&cf=all&ned=us&hl=en&q=Chuck+Schumer&ict=clu
http://google.com///news/search?pz=1&cf=all&ned=us&hl=en&q=author:%22Corey+Boles%22&scoring=n
http://google.com///news/section?pz=1&cf=all&ned=us&hl=en&q=Jennifer+Aniston&ict=clu
http://google.com///news/search?pz=1&cf=all&ned=us&hl=en&q=author:%22Juli+Weiner%22&scoring=n
http://news.google.com/news?pz=1&cf=all&ned=us&hl=en&output=rss
http://www.google.com/intl/en_us/ads/
http://google.com//#
http://google.com//#
http://www.google.com/support/websearch/bin/answer.py?hl=en&answer=136861
http://google.com//https://www.google.com/accounts/Login?continue=http%3A%2F%2Fwww.google.com%2Fsupport%2Fwebsearch%2Fbin%2Fanswer.py%3Fanswer%3D136861&/
http://www.google.com/support/websearch/
http://google.com///support/websearch/bin/answer.py?answer=134479
http://google.com//javascript:window.print();
http://google.com//answer.py?answer=134479
http://google.com//#
http://google.com///support/websearch/bin/answer.py?answer=510&cbid=1uldu7m05poup&src=cb&lev=answer
http://google.com///support/websearch/bin/answer.py?answer=35891&cbid=-dbpknp58wgz6&src=cb&lev=answer
http://www.google.com/adwords/aboutgoogleads/#utm_source=search_help_center_en-us&utm_medium=promo&utm_campaign=en-us
http://www.google.com/intl/en/
http://www.google.com/support/websearch/bin/answer.py?hl=en&answer=29508
http://google.com//#content
http://google.com//https://www.google.com/accounts/Login?continue=http%3A%2F%2Fwww.google.com%2Fsupport%2Fwebsearch%2Fbin%2Fanswer.py%3Fanswer%3D29508&/
http://google.com///support/websearch/bin/answer.py?answer=134479
http://google.com//javascript:window.print();
http://www.google.com/advanced_search
http://www.google.com/advanced_image_search?hl=en
http://www.google.com/support/forum/p/Web+Search?hl=en
http://google.com//#
http://google.com///support/websearch/bin/answer.py?answer=497&cbid=1lj1mztqq59xn&src=cb&lev=answer
http://google.com///support/websearch/bin/answer.py?answer=45449&cbid=-4tppi9fcsuf1&src=cb&lev=answer
http://www.google.com

повторяеться допустим строка
http://google.com//javascript:void(0);

надо чтоб при нажатие кнопки все копии удалились и осталась только одна, +рассортировал как было

[SerginhoLD]

ну если в мемо в каждой строке только одна сслыка и больше ничего нет, то тупо двойной цикл, берешь первую строку, и проверяешь остальные, если есть повтор - удаляешь, потом вторую, и т.д.
ну или как mak-karpov сказал )

[hugolom]

Мне бы показать это в коде

[RusMaXXX]

Код:

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);
    Application.ProcessMessages;
  finally
    FreeandNil(buffer);
  end;
end;

применять так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Data: TStringList;
begin
  Data := TStringList.Create;
  Data.Text := Memo1.Text; // в мемо1 хранятся данные с повторами
  RemoveDuplicates(Data); // "сито" данных :) 
  memo2.Text := Data.Text; // в мемо2 данные пройденные через "сито"
  Data.Free;
end;

[Страдалецъ]

Примерно так:

Код:

Var
  SL: TStringList;
begin
 SL := TStringList.Create;
 SL.Duplicates := dupIgnore;
 SL.Sorted := True;
 SL.Text := Memo1.Text;
 Memo1.Text := SL.Text;
 SL.Free;