Алгоритм удаления повторяющихся строк в TStringList

← →
webSQLNeederr (2008-03-24 16:59) [0]

Что то я туплю с алгоритмом.

procedure TForm1.Button1Click(Sender: TObject);
var s:string;str,cop,n:TStringList;i,j:integer;
begin
str:=TStringList.Create;cop:=TStringList.Create;n:=TStringList.Create;
if od.Execute then
begin
s:=od.FileName;
end;
str.LoadFromFile(s);
//showmessage(inttostr(str.Count));
cop.Text:=str.Text;
for i:=0 to str.Count-1 do
begin
for j:=i+1 to str.Count-1 do
begin
if str.Strings[i]=str.Strings[j] then
begin
Memo1.Lines.Add(str.Strings[i]);
end
end;
end;
showmessage(inttostr(n.Count));

Это я смог собрать повторяющиеся строки, а как их удалить из первоначальной строки что то я запутался ... Помогите кому не сложно ...

← →
Reindeer Moss Eater © (2008-03-24 17:04) [1]

Duplicates := dupIgnore;
Sorted := True;

← →
webSQLNeederr (2008-03-24 17:10) [2]

> Duplicates := dupIgnore;
> Sorted := True;

procedure TForm1.Button2Click(Sender: TObject);
var n:TStringList;
begin
n:=TStringList.Create;
n.Add("2");n.Add("2");n.Add("27");n.Add("43");n.Add("21");n.Add("64");n.Add("45" );n.Add("22");
n.Add("14");n.Add("20");n.Add("57");n.Add("17");n.Add("74");n.Add("77");n.Add("2 5");n.Add("89");
//n.Sort;
n.duplicates := dupIgnore;
n.Sorted := True;
memo1.Text:=n.Text;
end;

В Мемо выводится:

14
17
2
2
20
21
22
25
27
43
45
57
64
74
77
89

← →
Германн © (2008-03-24 17:13) [3]

> В Мемо выводится:
>

Что нравится?

← →
Johnmen © (2008-03-24 17:13) [4]

> В Мемо выводится:

Отлично.

← →
Reindeer Moss Eater © (2008-03-24 17:16) [5]

так свойства-то надо до загрузки устанавливать, а не после.

← →
Reindeer Moss Eater © (2008-03-24 17:18) [6]

Duplicates

Specifies whether duplicate strings can be added to sorted lists.

← →
webSQLNeederr (2008-03-24 17:41) [7]

> так свойства-то надо до загрузки устанавливать, а не после.

До загрузки попробовал - аналогично ...

← →
Германн © (2008-03-24 17:48) [8]

> До загрузки попробовал - аналогично ...
>

Не верю.

← →
webSQLNeederr (2008-03-24 18:05) [9]

> Не верю.

И правельно делал :) Это я проверял мастеров на их мастерство :)

Все РАБОТАЕТ!! спасибо за помощь!

> Это я проверял мастеров на их мастерство :)
надо бы модераторам проверить на тебе их "забаниванивающее" мастерство...

← →
webSQLNeederr (2008-03-24 18:12) [11]

Не, не надо :) Я хороший и пуШШШистый :)

> webSQLNeederr (24.03.2008 18:12:11) [11]

Не верю.

Алгоритм удаления повторяющихся строк в TStringList Найти похожие ветки