| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Какая строка чаще всего встречается в Tstringlist? [D7, WinXP]

Kostyan ©   (2006-01-08 18:36:00) 

Возникла такая проблемка - нужна функция , возвращаяющая строку, которая наиболее часто встречается в TStringList...
Можете помочь?

---

TUser   (2006-01-09 11:38:00) [1]

Извини, в [2] фигню написал про линейное время.
List.Sort;
result:='null string';
count:=0;
current:=result;
c_count:=0;
for i:=0 to List.Count do begin
if i < List.Count then
given:=List[i]
else given:='null string';
if current=given then begin
inc (c_count);
end else begin
if c_count > count then begin
result:=current;
count:=c_count;
end;
current:=given;
c_count:=1;
end;
end;

---

Kostyan   (2006-01-08 23:25:00) [2]

Alexander PAnov Респект! Спасибо

---

Alexander PAnov   (2006-01-08 23:07:00) [3]

procedure TForm1.Button1Click(Sender: TObject);
var
   L,L1: TStringList;
   i: Integer;
   Res: Integer;
begin
   L := TStringList.Create;
   L1 := TStringList.Create;
   try
       L.Assign(Memo1.Lines);
       L.Sorted := True;
       L1.Sorted := True;
       L1.Duplicates := dupIgnore;
       for i := 0 to L.Count-1 do
       begin
           Res := L1.Add(L[i]);
           L1.Objects[Res] := Pointer(Integer(L1.Objects[Res])+1);
       end;
       Memo1.Lines.Clear;
       for i := 0 to L1.Count-1 do
       begin
         Memo1.Lines.Add('Count:'+IntToStr(Integer(L1.Objects[i]))+ ', строка:'+L1[i]);
       end;
   finally
       L.Free;
       L1.Free;
   end;
end;

---

Kostyan   (2006-01-08 22:50:00) [4]

ок жду =)

---

TUser   (2006-01-08 21:21:00) [5]

за линейное время реашется. Просматрива5шь список, хранишь наибольшее сейчас и наибольшее ваабще. Протрезвею - напишу.

---

Desdechado   (2006-01-08 18:38:00) [6]

stringlist.sorted:=true
перебор строк с подсчетом

---

Наверх