Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

webSQLNeederr © (2008-03-24 16:59:00)
Что то я туплю с алгоритмом.

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));

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

Anatoly Podgoretsky (2008-03-24 20:11:00) [1]
> webSQLNeederr (24.03.2008 18:12:11) [11]

Не верю.

webSQLNeederr (2008-03-24 18:12:00) [2]
Не, не надо :) Я хороший и пуШШШистый :)

sniknik (2008-03-24 18:08:00) [3]
> Это я проверял мастеров на их мастерство :)
надо бы модераторам проверить на тебе их "забаниванивающее" мастерство...

webSQLNeederr (2008-03-24 18:05:00) [4]

> Не верю.

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

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

Германн (2008-03-24 17:48:00) [5]

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

Не верю.

webSQLNeederr (2008-03-24 17:41:00) [6]

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

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

Reindeer Moss Eater (2008-03-24 17:18:00) [7]
Duplicates

Specifies whether duplicate strings can be addedto sorted lists.

Reindeer Moss Eater (2008-03-24 17:16:00) [8]
так свойства-то надо до загрузки устанавливать, а не после.

Германн (2008-03-24 17:13:00) [9]

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

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

Johnmen (2008-03-24 17:13:00) [10]

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

Отлично.

webSQLNeederr (2008-03-24 17:10:00) [11]

> 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

Reindeer Moss Eater (2008-03-24 17:04:00) [12]
Duplicates := dupIgnore;
Sorted := True;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »