Скачать: CL | DM;

Алгоритм удаления повторяющихся строк в 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]

> Не верю.

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

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

---

← →
sniknik ©   (2008-03-24 18:08) [10]

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

---

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

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

---

← →
Anatoly Podgoretsky ©   (2008-03-24 20:11) [12]

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

Не верю.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.012 c